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ABSTRACT 



Tnis tnesis describes tne detailed interface design and 
implementation of tne Micropolis 1220 rigid disK storage 
unit into tne AEGIS multiuser environment. At tne onset of 
tnis worfc, tne AEGIS development system consisted of an ^BB- 
80 nubble memory, tne REMEX Data tfarenouse dis& system, and 
four INTEL iSBC S6/12A single board computers. Tne 
Micropolis interface was accomplisned utilizing tne INTEL 
8255 programmable parallel I/O port resident on one cf tne 
AEGIS iSBC 86/12 A computers. Tne iSBC 86/12A used for tne 
interface can still be operated as an independent computer 
witn all Micropolis disk: operations being- transparent to tne 
user. Tne Micropolis disic unit adds an additional 35.6 
megabytes of online storage to tne AEGIS system. 
Utilization of tne Micropolis disK system as a software 
development storage media will free tne REMSX Data Warenouse 
for storage of "radar data" to emulate the SPY-1A radar. 
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I. INTRODUCTION 



A. DISCLAIMER 

Many terms used in inis tnesis are registered trademarks 
of commercial products. Rather tnan attempt to cite eacn 
individual occurrence of a trademark:, all registered 
trademarks appearing in tnis tnesis will be listed below, 
following the firm holding the trademark. 

Intel Corporation, Santa Clara, California: 

INTEL MULTIBUS I NTELLEC V DS 

iCS i SBC 

Pacific Cy be r/Met rixs Incorporated, Dublin, California: 
Buobl-Board MBB-80 3ubbl-3oard 

EX-CELL-0 Corporation, Irvine, California: 

REM EX Data Warehouse 

Digital Research, Pacific drove, California: 

CP/M CP/M-06 



Micropolis Corporation, Cnatswortn, California: 

M icropol i s 

B. GENERAL DISCUSSION 

Tne AEGIS weapons system simulation project is an 
ongoing study currently being conducted at the Naval 
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Postgraduate Softool. Tfte primary objective of tftis study is 
to investigate tfte feasibility of replacing tne present, 
four-processor AN/UYK-7 mainframe computer witn a multiple 
microcomputer based arcni tecture. 

Tfte primary mission of tfte multiprocessor system is to 
provide computer control for tne SPT-1A radar system. Tnis 
system collects lar^e amounts of data concerning target 
detection and acquisition wnicn must be processed in real- 
time. A microcomputer based system can provide tne same 
signal processing in real-time only if more tftan one 
processor is used and tne computations are performed 
concurrently . 

Tftus, tne first logical step of tne A2QIS study was to 
identify a viable microcomputer and design an efficient 
operating system capable of nana^in^ concurrent processes. 
A detailed design of sucn an operating system was presented 
by Wasson in 1930 [Pef. 1J . Tnis design was based on tne 
INTEL iSBC 9b/12A microcomputer. Tftis is a single board 
computer based on tne INTEL 80S6 16-bit microprocessor. Tne 
operating system. .'ICORTEX, was implemented usins Hasson's 
design and refined many times. Klinefelter demonstrated tfte 
first truly efficient implementation of w COR TEX witn four 
iSBC Se>/l2A's in June of 1992 [Ref. 2J. 

Because CORTEX was a very specialized manager of 
concurrent processes, it was not an operating system well 
suited for program module development. Thus, tfte next 
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logical step of tne project was to identify an operating 
system that could be easily integrated into tne same 
nardware utilized by MCORTEX. Tnis would allow tne sane 
system to be used for botn signal processing emulation by 
MCORTEX and as a software development tool. CP/M-86, 
developed by Digital Researcn for use witn tne INTEL 8U86 
microprocessor, was cnosen for tnis purpose. Tnis cnoice 
offered tne maximum in flexibility m tnat tnis operating 
system could be user configured for different or hanging 
nardware environments. 

Mi T *e Candalor began tne integration process by modifying 
the Basic Input/Cutput System (BIOS) of CP/M-88 tor use on 
an INTEL MDS system. This was demonstrated in June of 1981. 
[Ref. 3] 

HicKlin and Neufell continued tne integration process by 
adding a bubble memory to tne MULTIBUS and again altering 
tne BIOS to reflect tne current nardware [Ref. . Due to 
tne non-volatile nature of a bubble memory, it was used in 
tnis application to store tne CP/M-88 operating system. 
Tnis permitted a fast, easy method of downloading tne 
operating system into random access memory (RAM) when power 
was applied to the system. 

Since tne Klinefelter demonstration employed simulated 
processes, it was necessary to develop a method by wnich tne 
SPY-i A radar could be emulated in real-time. A nard dist 
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drive, interfaced through direct memory access (DMA), was 
determined suitable for tnis purpose due to its nign speed 
and large storage capacity. It was also considered 
desirable to mate maximum use of tne available Hardware wnen 
the system was bein^ operated in the software development 
mode. Tnis required tnat eacn single board computer nave 
tne capability of supporting an independent user. These two 
concepts were brougnt together and demonstrated witn a four- 
board, multi-user system by Aimquist and Stevens in December 
1982. [Ref. 5 J 

At this point tne system still lacked a capability of 
storing software for future refinement. Tnis tnesis 
completes the program development system by presenting the 
hardware interface design and software implementation of tne 
Micropolis disi drive into the multi-user system as 
developed by Aimquist and Stevens. 

C. FORMAT OF THESIS 

Cnaptsr I gives a general overview of tne AEGIS researcn 
effort. It also provides a general developmental history of 
tne project and explains wny tne research wors accomplished 
by tnis thesis was essential to the project. 

Cnapter II addresses tne system arcni tec ture . Detailed 
discussion is siven of all major hardware components as this 
was the existing hardware environment into which the 
Micropolis diSK drive had to be interfaced. 
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Chapter III describes the details or the AEGIS multiuser 
system software. Tne standard CP/M-86 operating system is 
discussed in moderate detail. Also covered in this chapter 
is a powerful modification to CP/M-86 that was developed 
during prior wort. This modification provides a simple and 
efficient method for altering the hardware environment 
supported by the operating system. 

The hardware interface developed for the Micropolis Usk 
system is presented in Chapter IV. First, the details of 
the reauirements imposed on the design of the interface Dy 
the Micropolis controller are presented. This is followed 
by tne development of a functional interface to meet tnose 
requ iremen ts . 

Cnapter V presents the software implementation of the 
Micropolis into the CP/M-86 operating system and Cnapter VI 
summarizes the development work accomplished during this 
tnesis. Included in Cnapter VI is a comparison of tne disfc 
access times required by the P.EMEX Data Warehouse (a DMA 
interfaced nard disx) and tne Micropolis disi system (a 
programmed I/O interfaced hard diss). 
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II. SYSTEM ARCHITECTURE 



As stated in tne introduction, tne design of tne M CORTEX 
operating system and tne software development system was 
based on tne INTEL iSRC 86/12A single board computer and 
various peripneral components. Figure 2.1 depicts tne 
interconnection of tnese components as tnev existed at tne 
onset of tnis researcn effort. In tne paragrapns tnat 

follow, a description of each component, as well as its 
role in tne overall system, is given. An exnaustive 

description of eacn device can be found in tne cited 

references . 

A. INTEL 8086 

Tne INTEL 8086 is a nign performance, general purpose 
16-bit microprocessor. It is tne foundation upon which tne 
AEGIS developmental system is built. Refer to Figure 2.2 
for a general overview of its internal structure and 

organization. Tnis section is intended to give general 
Knowledge about tnis device. A detailed description can 

found in [Ref. 6j . 

1 . General Pu rpos e and Flags Registers 

As can be seen in Figure 2.2, tnere are eignt 16-bit 
general purpose registers. Four of tnese are byte or word 
addressable and are referred to as "tne data group”. Tne 
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Figure 2,1 System Configuration 
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remaining four are only word adaressa die and are referred as 
"tne pointer and index group". 

The flags register is 16 bits wide and consists of 
nine usable status bits. Tne remaining seven are undefined. 
Tde nine bits are divided into six status flags and three 
control flags. Tne status flags are set by tne 6086 as tne 
result of arithmetic or logical operations. Tne control 
flags are set tnrougn programmed instructions. Of 
particular importance is tne IF control flag. This flag is 
used to ena ble/di sa b ie maskable interrupts and must be 
properly set for tne system to function correctly. The IF 
or interrupt-enable flag is discussed in greater detail in 
Section 4 of tnis chapter. 

2. Segment Registers 

Although tne 8086 nas segment registers and tne 
technical literature discusses segmentation as related to 
tne microprocessor, this should not be confused with 
segmentation as is generally defined for operating systems. 
The operating system definition supports the ideas of memory 
management and segment access cnecits tut tne 8086 nas no 
special hardware tnat supplies tnese functions. However, 
addressing is segment-li tee in tnat it is two-dimensional. 

Physical addresses are generated from two 16-bit 
values: a base and an offset value. Tne base value is 
shifted left four bits and tne offset is added to this 
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snifted version to arrive at a pnysical address. As an 
example, consider tne following: 

E000 — B ASS VALUE 
2AAA — OFFSET VALUE 

Vnen tnese two nexidecimal values are added as described 
above, tne result is: 

E0ee0 — SHIFTED EASE VALUE 
2 AAA — OFFSET VALUE 
E2AAA — PHYSICAL ADDRESS 

It is tne segment registers tnat supply tne base value. 
Tnis metnod of addressing results in a 20-bit address or a 
one megabyte address space. 

Snown in Figure 2.2 are four segment registers. 



Eacn are 


16 


bits wide and give tne 


8086 access 


to 


64 


ici lo bytes 


of 


memory. Assuming tney 


are eacn set 


to 


a 


different 


64 £ 


base, tnis will give tne CPU access 


to 


a 



maximum of 256K Dytes of memory at any instant of time. 
Because tne segment registers are accessible to tne 
software, tney can be programmatically altered to any value. 
Tnus allowing addressing t.nrougnout tne entire one megabyte 
range . 

tfaicn segment register is used anc now tne offset 
value is obtained depends upon tne instruction currently 
being executed. Tne CS or code segment register points to 
tne current code segment. All executable instructions are 
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located in tnis segment. Tnerefore, tne address of tne next 
instruction is computed using tne CS register as tne oase 
and tne instruction pointer (IP) as tne offset. All stact 
operations utilize tne stact segment (SS^ register as tne 
base and tne stact pointer (SP) as tne offset. Tne data 
segment (DS) register and tne extra segment (ES) register 
nave no explicit offset register associated witn tnem. Tnis 
value is software controlled by supplying one of tne 
registers in tne pointer and index group as a oart of tne 
instruction. Program variables are generally placed in tne 
memory space accessible by tnese two segment registers. 

3. Executi on and Bus Interface Units 

Tne dividing line in Figure 2.2 is used to indicate 
two separate processing units witnin tne 8086: tne execution 
unit (EU) and bus interface unit (BIU). Botn of tnese units 
operate independently. 

Tne BIU is responsible for performing all bus 
operations for tne EU. It generates 20 bit addresses by 
combining tne segment and offset values in its own adder and 
transfers data to and from tne EU on tne ALU data Dus. Tne 
EIU also fetcnes instructions for tne EU and stores tnem in 
its six byte instruction queue. Tnis queue mates it 
possible for tne BIU to "prefetch” instructions during any 
spare bus cycles. 

Tne EU is responsible for executing all instructions 
and for transfering data and addresses to tne BIU. It also 
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maintains tne general purpose and flags registers. Because 
tnere is no connection from tne EU to tne system Dus, it is 
isolated from tne outside world. All instructions to be 
executed are fetcned from tne 3IU's instruction queue. In 
tne event tnat tne queue is empty, tne £U simply waits for 
tne BIU to place an instruction in tne queue. 

Tnis type of arcnitecture allows extensive 
overlapping of instruction fetcn witn execution. Tne result 
is tnat tne time required to fetcn instructions becomes 
nearly transparent to tne EU since it works on instructions 
tnat nave Deen prefetcned. Tnis, coupled witn a 5 f*EZ 
clock, gives tne 6066 tne iiign speed necessary for tne 
AEOIS implementation. 

4 . In terruot Structure 

Tne £036 nas provisions for up to 256 different 
interrupts numbered from 0 to 255. Vnen an interruot occurs, 
tne CPU must transfer control to a new program location tnat 
contains tne necessary programmed instructions to service 
tnat interrupt. Two values are necessary to effect tne 
transfer: tne code segment in wnicn tne interrupt routine is 
located and tne instruction pointer for tne routine. Tnese 
values are located in a table tnat begins at absolute zero 
in memory and extends to 3FF nexidecimai. Refer to Figure 
2.3. Tne information needed for eacn interrupt routine 
occupies four consecutive bytes in tnis table. Tne CPU is 
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supplied witn a type code wnen an interrupt occurs. Tnis 

value is automatically multiplied by four to determine tne 
correct position in tne table from wnicn to obtain tne CS 
and IP values. The current CS, IP and fla^s register values 
are pushed on tne stacic and the new CS and IP values are 
loaded. Tnis completes the transfer of control. Both tne 
values in tne interrupt table and tne interrupt routines 
are user supplied and must be placed in memory before tne 
interrupt can be permitted to occur. 

How tne processor is supplied witn tne type coce 
cited above depends on tne metnod used to generate tne 
interrupt. Tnese can be software or hardware venerated. 
Hardware interrupts are subdivided into two categories: 
maskable and non-mas&a ble . Maskable interrupts are enabled 
or disabled by setting or clearing tne IP flag. When tne 
CPU a.cfcnovlede*es a masKacle interrupt, it is the 

responsibility of tne hardware requesting tne interrupt to 
place the type code on the bus for use by tne CPU. 

Non-masica ble interrupts cannot be disabled. In tne 
event of a non-masica ble interrupt, tne CPU automatically 
assigns it a type code of 2. Thus, a type cole need not be 
supplied . 

Software interrupts can be invoked by executing the 
”lNT n" instruction; wnere "n" is a number from 0 to 255. 
In tnis case, tne type code is an explicit part of tne 
instruction. They can also occur by creatine a fatal error 
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as a result of program execution, sucn as a divine by zero 
or overflow error. The CPU will tnen use a predefined type 
code as depicted in Figure 2.3. 

The S096 does not generally control the devices that 
can cause interrupts. This maices simultaneously occurring 
interrupts possible and therefore, all interrupts are 
prioritized. Shown in Figure 2.4 is the interrupt 
processing sequence used. This figure indicates tnat 
software generated interrupts are the highest priority. 
Non-mas xa Die are tne next highest and maskable are the 
lowest . 

The interrupt structure discussed above plays an 
important role in tne development of tne Micropolis 
interface design. A general understanding of this structure 
is an essential prerequiste to an understanding of noth tne 
detailed design presented in Chapter IV and tne software 
implementation presented in Chapter 7. 

£. TPS iSi$C 86/12 A 

The iS3C 96/12A is a complete single board computer. It 
is used as tne central processing node of tne AEGIS 
multiprocessor system. The board includes the 6086 16-bit 
CPU, 64& bytes of HAM, a serial communications interface, an 
INTEL 9255 that supplies three programmable parallel I/O 
ports, an INTEL 9253 programmable timer, an INTEL 8259A 
priority interrupt controller, MULTIBUS interface control 




Figure 2.4 Generalized Interrupt Processing Sequence 
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lo^ic, and bus expansion drivers for interface wit* other 
MULTI3US interface-compatible expansion boards. Provisions 
are also made for installation of up to 16K bytes of EPROM. 
Tne current system only utilizes £K bytes of EPROM on eacn 
board . 

Tne onboard 64K bytes of RAM can be dual-ported in 
segments of 16K bytes tnus maxing it accessible not only to 
tne local CPU but also to tne MULTIBUS. When dual-ported, 
tne RAM can be swi tcn-and-jumper configured to any 123K byte 
segment of tne one megabyte address space relative to tne 
MULTIBUS. Local addresses are always fixed between 0000H 
and FFFFH regardless of tne MULTIBUS address tne board is 
configured for. Tnis system was designed for independent 
operation by eacn SBC and therefore, no RAM is dual-ported. 
To maXe tne RAM inaccessible to tne MULTIBUS requires a 
jumper between E112-E114 on eacn SBC. Tne board does not 
come factory equipped witn tnis jumper and its existence 
must be verified before proper operation of tne system can 
be insured. 

Each iSBC comes factory configured with jumpers between 
El 03-El 04 and E105-E105. Tnese jumpers route tne bus clocX 
and constant clocx signals to tne MULTIBUS. As shown in 
Figure 2.1, several SBC's are connected to tne MULTIBUS 
interface. Only one of tnese is required to supply the 
clocx signals to tne MULTIBUS. All other boards must nave 
the E103-E104 and E10b-El£5 jumpers removed. 
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No otner special configurations are necessary for tne 
iSBC 86/1 2A Doards. For a complete discussion of user 
options and factory defaults for tnis board see [Ref. 7J . 

C. MBB-S0 BUBBLE MEMORY 

The MBB-80 Bubbi-Board is a memory storage device that 
is compatible with all 8-bit and 16-bit microprocessors 
.laving INTEL MULTIBUS arcni t ec tu re . Tie board provides 
approximately 90£ bytes of non-volatile memory as well as 
all required MULTIBUS interface logic. 

Interface with tne MBB-80 controller is accomplished 
through memory mapped I/O and requires sixteen user-defined 
locations in tne MULTIBUS one megabyte address space. These 
addresses correspond to controller registers tna t are used 
to read status, set board configurations and perform 
read/write operations. Tne current configuration uses 
MULTIBUS addresses beginning at S0000H. Tnis requires tnat 
switch S in S 2 on tne 3ubbl-Board be set to "on" and all 
otners in S 2 be set to "off”. All switches in Si must be 
set to "off". 

Tne bubble memory appears to tne system as a simple 90s 
byte disfc drive. Ail read/write operations to tnis device 
are accomplished in tne same manner used for any other list 
system and require no special user invoked functions. Its 
primary use in tne system as depicted in Figure 8.1 is as a 
non-volatile storage medium from wnicn to load the operating 
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system into RAM. For a complete discussion of tne MBB-S0 
Bubbl-Eoard i mpleme ta t i on to tne system see [Ref. 4 J. 

D. REMEX DATA WAREHOUSE 

1 • Su components and Storage Capacity 

Tne REMEX Data Warehouse is a mass storage unit 
containing two floppy disx drives (single or dou ble-sided , 
single or double density) and a Winchester technology fixed 
disi drive. Additionally, an MC6802 microprocessor coupled 
with onboard firmware is the mechanism used to service all 
drives . 

The fixed disic is a 14 in cn enclosed dis& system 
consisting of two recording surfaces. Each surface has two 
reccording neads. Eacn head can access 212 usable traces 
and eacn tracK contains 39 512-byte sectors. This gives 
eacn head access to approximately 4 megabytes of storage and 
gives tne distc a total storage capacity of 16 megabytes. 

Tne two floppy drives are swi tcn-selec ta ble to 
nandle either single or double density. In this 
implementation, single density, standard IBM FM encoding is 
employed . 

2. MULTIBUS Interface 

Tne REMEX Data Warenouse is interfaced to tne 
MULTIBUS via the MULTIBUS Interface Card assembly supplied 
with tne unit. This assembly contains all tne necessary 
control, buffering and MULTIBUS interface logic required to 



28 



interface witn tne nost system. The nost communicates witn 
the assembly using programmed I/O. Communications from tne 
assembly to tne nost is via DMA . Tne interface acts as a 
bus master in tne DMA mode and as a bus slave in tne 
programmed I/O mode. 

Tne controller requires 4 I/O port addresses for tne 
nost system communications. These are used to obtain status 
and pass command information. Currently, addresses 70, 71, 
72 and 73 hexidecimal are used but these can be altered by 
cnanging tne appropriate switches on tne MT JLTI£US Interface 
Card assembly. 

Tne system configuration in tnis implementation 
utilizes tne REMEX Data Warehouse as a program storage 
media. However, as alluded to in tne introduction, it is 
envisioned that this hard dis£ drive will be used for 
storage of trac£ data in the SPY-1A radar emulation effort. 
For further information on tne REMEX consult [Ref. SJ . 

3* iCS-«0 CHASSIS 

Tne iCS-90 industrial chassis is MUITIBUS-compa tible ana 
supports a modular microcomputer development system. It 
consists of four four-slot iSBC 504/614 Caracages, four 
fans, a power supply and control panel. Tne control panel 
contains an on/off/ioc£ xey switch, reset and interrupt 
pushbuttons and various LED's. 
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Any combination of MULTIBUS-compa ti bie plus* in boards 
can be installed. A maximum of four boards can be placed in 
t fie iSBC 504 Cardcasre. Additional iSBC 614 Cardca^es can be 
added to tne chassis through an expansion interface supplied 
witn tne system. Tne laboratory system utilized in support 
of this tnesis consists of a single iSBC 604 Cardcaee and 
tnree iSBC 614 Cardcages. This gives a total capacity of 16 
board slots. These ca^es provide for both INTEL MULTIBUS 
master and slave boards. From the front panel, tne slots 
are numbered 1 to 15 from left to right. All odd-numbered 
slots are configured for master boards and all even-numbered 
slots are configured for slave boards. 

Because more than one bus master can be placed in tne 
chassis, a priority resolution scheme is required to resolve 
MULTIBUS access contention. This scheme can be operated in 
either the serial or parallel mode. In the system of Figure 
2.1, the chassis is operated in tne parallel mode with an 
external random priority network for bus access resolution. 
For more information see [Ref. 9]. 

F. COMMON MEMORY 

The common memory depicted in Figure 2.1 is a simple 32K 
byte, ^ULTIBUS-compat i bie RAM board. It can be switcn 
configured to any address in the one megabyte Multibus 
address space. In its current configuration, it occupies 
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addresses E0000H through E7FFFH. The board is expandable to 
64K bytes of RAM . 

Recall from tne discussion on tne iSJBC 86/12A tnat tne 
RAM of all SRC's in the system is jumper configured to be 
accessible only to tne local CPU. This means tnat neitner 
the bubble controller nor tne REMEX controller can 
communicate directly with any iSBC. Therefore, all 
read/write operations with these two devices is accomplished 
via tne common memory. Tne technique used to coordinate 
this effort is a software one and is discussed in detail in 
the next chapter. 

G. MICROPOLIS DISK DRIVE 

The M icropolis disit system (not depicted in Figure 2.1) 
is an eignt incn fixed diss drive wi tn an integral 
controller board. It consists of five data surfaces with 
580 tracts per surface. Eacn tract contains twenty-four 512 
byte sectors. This gives a 35.6 megabyte formatted storage 
capacity. 

Tne controller board consists of a Z-30 microprocessor, 
firmware in PROM, and tne necessary control loelc and 
buffers to provide a variety of features. The features 
employed and the details of tne Micropolis interface 
accomplished as a result of this thesis wort are presented 
in Chapters IV and V. 
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Ill . SYSTEM SOFTWARE 



The Micropolis interfacing worlc consisted cf two peases: 
tne Hardware interface design and tne software interface. 
Before either could be accomplished, it was necessary to 
understand both tne existing system architecture and 
software. Tne last chapter addressed that architecture. 
Therefore, this chapter presents the details of the AEGIS 
developmental system software. 

A. CP/M-S6 OPERATING SYSTEM 
1 • Gene rai Discussion 

CP/M -86 is tne operating system used in tne AEGIS 
software development system. It is a commercially 
distributed operating system developed by Digital Research 
for use with a si’ngle INTEL 8086 based microcomputer. It is 
supplied on two single sided, single density, eight inch 
floppy discs. Included on tnese diskettes is tne operating 1 
system (CPM.SYS), an 8086 assembler (ASM86.CMD), the Dynamic 
Macnine Language Debugger (DDT86.C V D), an editor (ED.CMD) 
and various reconfiguration and file handling utilities. 

The CP/M-86 operating system can be user configured 
to fit any hardware environment. As it is snipped, tne file 
CPM.SYS is configured for 32K bytes of RAM, a Keyboard, a 
screen device, an INTEL iSBC 204 Floppy PisK Controller ana 
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a 9600 baud serially interfaced printer. Tne details of tne 
CP/M structure and tne reconfiguration procedures are 
discussed below. For information on tne entire CP/ M -86 
environment and capabilities see [Ref. ie-12] . 

2 . St ru cture 

Tne CP/M operating system can be viewed as occupying 
ttiree distinct levels of abstraction. Refer to Figure 3.1. 
Applications programs invoice system functions tnrouen tne 
Basic Disfc Operating System (3D0S) module and do not 
communicate with any ctner module. Tne BTOS performs 
services requested by applications programs and all general 
file and disic management functions. Ail nardware dependent 
functions required by tne RDOS are requested tnrousd tne 
Basic Input/Output System (BIOS) module. Tne BIOS module is 
tne only one tnat communicates witn tne nardware. Tne 
Console Command Processor (CCP) snown is used to process 
console commands and provides tne user interface in tne 
absence of an applications program. 

Since all Hardware dependent functions are located 
in tne BIOS module, tne system nardware configuration must 
be reflected nere. A skeletal 3I0S (BI0S.A8t>) is provided 
in source code format for tnis purpose. Tne CCP and BDOS 
modules are provided as a single Hex file (CPM.H85). Tnis 
file requires no modification but is necessary for tne 
adapt ion/reconf i?ura t i on process described in Section 4 
below . 
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3. Boots trapping CP/M 

Loading CP/M into RAM from a standard single density 
floppy lisle requires a two step procedure. Tne coot RO M , 
wnicn receives control wden tne system reset out ton is 
depressed, must load a loader program from tne reserved 
system trades on tne lisle into RAM and pass control to it. 
Tne loader is tnen responsible for loading tne operating 
system from the lisle into RAM and passing control to it. 
Tnis two step procedure is required Decause tne operating 
system is too large to fit on tne reserved system trades. 
Tnerefore, adaption of CP/M to a system otner tnan tnat for 
wnicn it is commercially listriDutei requires modification 
to tnese three software components. 

4. General Adaption Pro~»dur«s 

Tne major effort in tne adaption process is in tne 
develonment of tne hardware drivers for tne BIOS module. 
The BIOS can be classified as performing three types cf 
functions: nardware initialization/reinitialization, 
character I/O and disK I/O. Tne functions are contained in 
21 subroutines witnin tne module. The BIOS accesses the 
subroutines through a table tnat has individual jump vectors 
to the entry point of each subroutine. This is shown in the 
operating system memory map in figure 3.2. Tne actions tnat 
must tase place upon entry to eacn of tnese subroutines is 
detailed in [Ref 10: pp. 60-65J . A cnane , e in the hardware 
environment is accounted for by changing tne code within 
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tne 21 subroutines and meeting trie entry and exit conditions 
as specified in tnis reference. Recall tnat a skeletal 
BIOS.A05 file is provided as a model for tnis purpose. 

Tne DisK Parameter Tables snoxn in tne previous 
figure are used by tne EIOS to obtain tne cr.ara c teri s^t i ~s 
of eacn device. Tnese tables exist in a file separate from 
tne BIOS and are included durin assembly tnrougn the use of 
tne INCLUDE <f iiename>. <f ile type> instruction at tne base 
of tne BIOS. Tne source code for tne tables as xeil as tne 
Uninitialized Scratcn Ram Area, can be automatically 
generated by tne GENDEF.CMD utility. Tnis requires a 
<f i lename> .DBF file as input and produces a <f ilenameXLIB 
file as output. Tne contents of <f i lename> .DEE are simple, 
one line di sit definition statements. Tne format for tne 
statements and tneir meaning is described in detail in [Ref 
10: pp.72-80j. 

Once tne BIOS file is modified and tne Disi 
Parameter Table file created, tney are assembled using 
ASM86.CMD. Tne resulting nex file is concatenated vitn 
CPM.H86 using PIP.CMD and a command file for tnis single nex 
file is generated using GENCMD.C V ID. Finally, tne new 
operating system tnat results is placed on tne dis£ as 
CPM.SYS using PIP.C^D. Tne process described above is 
depicted in Figure 3.3. Note tnat tne 8080 model option of 
CP/m- 86 is snown in tnis example. 
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1. USER. DBF ==> GENDER .CMC ==> USER. LIS 



2. USERSI0S.AB6 ==> ASM86.CMD ==> USERSIOS .H86 

3. CPM.HS6 + USERBIOS . H8b ==> PIP.C*D 

==> CPMSYS.H86 

4. CPMSYS.H85 ==> GENCMD.CMD ==> CPMSYS.CMD 

(8080 code U40] ) 

5. CPMSYS.CMD ==> PIP.CMD ==> CPM.SYS 

( RENAME ON NEW DISK) 

Figure 3.3 Steps for Creatine a New CPM.SYS 

Two software components remain to be adapted: t re 

loader provram and the Doot ROM program. Tne loader program 
is a simplified version of CP/M-Bb and contains only encuvn 
file processing capability to read tne CPM.SYS file from 
disK to memory. Tnree files are provided for tne 
development of a loader: LDCPM.H86, LDBDOS . ESb and a 

skeletal LDBI0S.A86 source file. The LDBI0S.A86 file 
reflects tne hardware to be used in tne loading operation 
and does not necessarily reflect tne total nardware. Tms 
file contains tne same 21 entry points as tne BIOS.AEb file 
with tne same entry and exit conditions and requires tne 
same type of Disi Parameter Tables and scratcn pad area. 
The veneration of tne LOADER.CMD file is depicted in Fivure 
3.4. Tne resulting loader must be small enough to fit 
entirely on the reserved system traces. 
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1. URLDBI0S.A86 ==> ASM86.CMD ==> URLDBIOS .H8b 
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allows the system to be booted from either the single or 
double density INTEL MDS floppy dis£ drive by executing tne 
command "GFFD4:0" from tne monitor. The second will boot 
tne system from tne bubble memory by executing ’’GFFD4:4" 
from the monitor. 

2. A Modification to tne BIOS 

Recall from Section A -4 above that any hardware 
cnange within tne system requires some of tne 21 BIOS 
subroutines to be rewritten. A change occurs not only by 
the addition of nardware but also wnen a component is 
removed either because it nas failed and tnere is no 
replacement or it is no longer needed. In a nardware 
environment as flexible as tnat required by the AEGIS 
project, tne standard reconfiguration process becomes an 
extremely time-consuming tasic. 

To alleviate this problem, a method was developed as 
a part of Almquist and Stevens' worx in which only minor 
changes to tne BIOS were required to alter tne nardware 
configuration, With this technique, all of the BIOS device- 
dependent subroutines are extracted into a separate file for 
each unique device. The specific device-dependent routines 
are: INIT, SELDSK, HOME, SETTRK, SETSEC, READ and WRITE. 
Tne physical location of tne entry points to tne routines is 
obtained from an ordered label table file and the BIOS 
accesses the routines through an indexed CALI instruction. 
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How tnis technique worKs is snown in Figure 2.5. In 
tnis example, a call is made to tne BIOS to READ DEVICE * 2 . 
The BIOS maices a jump to tne READ entry point. However, 
instead of doing an actual READ at tnis point, tne 
device number is determined and a call to tne address found 
in tne second position of RDTBL is made. Tne code tnat 
performs tne READ function for DEVICE # 2 is tnen executed. 

Tne code for tne seven device-dependent functions 
can be written and debugged independently of any otner code. 
To add the device to tne system reauires one INCLUDE 
<f ilename> .<f i le type> statement be added to the EIOS file, 
tne corresponding seven entry points be added to tne label 
table file and the Di sit Parameter Table be updated. The 
steps for creating tne CPI. SYS file remain unchanged from 
those presented in Section A-4 . To remove a device, the 
process is reversed. Clearly tnis method allows the 
hardware dependent code (and hence, the nareware itself) to 
be more easily integrated in or removed from tne operating 
system than tne standard BIOS structure did. 

C. MULTIUSER SYSTEM 

CP/M is not a multiuser or mul ti t asiing operating 
system. Another major development of tne Aimquist and 
Stevens' researcn wont was a metnod by wnicn each single 
board computer in the system could operate independently of 
the otners under CP/M and still nave access to tne snared 
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a call is made to the BIOS to READ derice #2 



BIOS 
file S 



LABEL 

TABLE 

file 



DEVICE #1 
file 

DEVICE #2 
file 



USER. LIB 
file 





jmp INIT 

>jmp READ 

jam SETIOBF j 


> BIOS jump rector 






INIT: determine derice # 

call to INTBL [offset derice #j 
ret 

— ^ READ: determine derice # 

caII RDTBL (offset derice #) 
ret ^ 

* (remaining 19 subroutines) 

INCLUDE LABEL TABLE 
INCLUDE DEVICE #1 
INCLUDE DEVICE #2 

* (an include statement for remaining 

dericee) 

INCLUDE USER. LIB (the disk parameter tables k 
initialized scratch RAN) 






INTBL dw INIT1 (replaced with physical address 
of INIT1 at assembly time) 

dw INIT2 

* (a "dw" statement for remaining 
derices) 

RDTBL dw READ1 
> dw HEAD2 






code for seren derice specific 
functions of derice #1 




INIT2 : code to initialize derice ^2 

ret 

— > READ2 : code to read derice #2 

• ret 







remaining derice dependent files 





Disk Parameter Tables 




Unitialized Scratch RAM 



Figure 3.5 Path of a BIOS Function Call 
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resources ( tne dis£ drives and tne bubble memory) of me 
system. Tne multiuser system tnat resulted can be broken 
down into tnree functional categories: syncnroniza ti on of 
common memory usaee , boot loading all SRC's and write 
protection of a user's allocated disK space. 

1 * Synchronisation 

As stated in Cnapter II, tne RAM on eacn iSBC 86/12A 
is not accessible via tne MULTIBUS and therefore, all aisK 
and bubDle memory read/write operations must be performed 
through a buffer in the common memory. This requires a 
synchronization scneme that will ensure a single computer 
can successfully complete a read/write operation before 
another computer is permitted access. 

A ti cset /server technique had been developed for 
this purpose. This required a CALL REQUEST instruction to 
be placed prior to all common memory read/write operations 



and a CALL RELEASE 


instruction 


be placed 


after 


tne 


read/write operation. 


The CALL 


REQUEST ac 


cesses 


the 


"ticket" variable in common memory 


for a ticket 


num be r 


and 


waits until that number 


is equal to 


the "server” 


va r ia bl 


e a 



number also found in common memory. Tne read/write 
operation is then performed and the CALL RELEASE advances 
the server number, thus releasing common memory to tne next 
ticket holder. 

The code for these subroutines is contained in the 
file SYNC.A86. It is included in the RIOS through an 
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INCLUDE statement placed immediately following tne last 
INCLUDE statement for tne device files. 

2. Boot Loading All iSBCls 

Because tne common memory variables must be 
initialized only once, two versions of tne CP/M-£6 operating 
system nad been developed. Tne file CPMMAST.CMD is tne 
master version tnat performs tne common memory 
initialization wnile CPMSLAVE.CMD is tne slave version tnat 
does not. 

Tne master board is boot leaded witn CFMMAST.CMD 
from tne bubDle memory. Once tnis board is operational, tne 
command "lDBOOT” is executed and results in a copy of 
BOOT.CMD beir 2 placed in tne common memory. Next, tne 
command "LDCPM” is executed. Tnis places a copy of 
CPMSLAVE.CMD into common memory. From tne monitor of tne 
remaining SBC's, tne command ”GE000 :0400" is executed. Tnis 
causes tne CPU to execute tne code of BOOT .C ^D vnicn, in 
turn, moves a copy of CPMSLAVE.CMD into local RAM and 
transfers control to it. 

3. Di sg rfrite Protection 

Dis£ write protection was acnieved tnrougn a log-in 
procedure. A lo^ table is initialized in common memory as a 
part of tne master version initialization. Tne number of 
entries in tne table correspond to tne number of disi: drives 
or logical devices in tne system. As part of booting tne 
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operating system, tfte user is queried for tne console number 
being used (located on tne front panel of eacn console) and 
tne disK drive to log on to. The log taole is cnecitea after 
tnis entry to determine if tne desired drive is free. If it 
is, tne user console number is placed at tnat drive's 
position in tne log table. If it is not, tne user is asited 
to re-select a drive. 

Tne user console number is also stored in tne local 
variable USER. Write protection is accomplisnea by 
comparing tne value in USSR to tne currently selected 
logical disit number and aborting any write operation if tney 
are not tne same. 

It was considered desirable to be able to cnange 
disic drives vitnout tne need to reboot tne board. A log out 
procedure was written for tnis purpose. Wnen tne command 
"LOGOUT" is executed, tne USSR variable is reset, tne log 
table is updated and tne user is again requested to enter a 
disit drive to lo? on to. 

Tne final common memory utilization employed as a 
result of tne multiuser system developed oy Almquist and 
Stevens is depicted in Figure 3.6. 

D. MCORTEX 

^CORTEX is tne operating system tnat was developed for 
tne SPY-1A radar emulation. In tne final version presented 
by Klinefelter [Ref. 2J , ^CORTEX was set up to nannle ten 
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virtual processors for eacn real processor. The data Dase 
upon vnicn all scheduling decisions are based is tne Virtual 
Processor 'Map (VPM) located in common memory. The VPM 
contains tne control and status information on eacn virtual 
processor required by MCORTSX to coordinate the concurrent 
processing . 

All processes managed by MCORTEX can oe in ore or three 
states: running on a real processor, waiting for some event 
to occur or ready to run (waiting to gain access to the real 
processor). If a process is in tne waiting state, it could 
be waiting for an event to occur on a real processor other 
than tne one to which it was assigned. An eventcount table 
is maintained in common memory for notification purposes. 
Whenever a real processor completes an event, tne table is 
updated and a message is broadcast to all other real 
processors in tne system that seme event has just been 
completed. Eacn real processor tnen cnectcs tne eventcount 
table to determine if the event pertains to any cf its 
virtual processors and reacts accordingly. 

The technique used for broadcasting an event employed a 
type of global interrupt issued on tne MUITIBOS. Because 
the development of the Micropolis interface altered the 
teennique somewhat, the details of it will oe presented in 
tne next chapter. 
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IV. MICRO POL IS hardware interface development 
A. OVERVIEW 

The Micropolis disk system offers an interface structure 
that is suitable for use with either programmed I/O or DMA 
data transfers. In an effort to make maximum use of 
available system hardware, tne programmed I/O mode was used 
in this implementation. This enabled an interface to be 
designed with tne INTEL 8255 programmable parallel I/O cnip 
located on the iSRC 86/12A. 

Recall from Chapter II tnat all RAM on each SBC is not 
accessible througn the MULTIBUS . Therefore, all control, 
status, and data information intended for the Micropolis 
disk system nad to be passed through the common memory. 
Because the disk system was interfaced into a single SBC's 
8255 port, the lisk controller nad no method of 
communicating directly with the common memory. To overcome 
this problem, a timer-controlled interrupt was designed. 
This allowed the 80e6 CPU to be interrupted at periodic 
intervals and effect any necessary communications between 
common memory and tne controller. The distinct advantage of 
this tecnnique is tnat tne single board computer used for 
the interfacing can still be used as an independently 
operating computer with all disk operations being 
transparent to the user. 
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In tne following paragraphs, me details of me 
interface design and tne timer-controlled interrupt design 
are presented. Tnis discussion is limited to tne 
development of tne designs and only tnose low-level routines 
needed to test their validity. The software implementation 
into tne AEGIS system will be discussed in Chapter V. 

B. M I CROPOL I S DISK SYSTEM 

Cnapter II stated tne general cna rac te ri s t ics of the 
Micropolis disit system. Tnis section expands on tnat oy 
presenting the technical interface requirements as well as 
tne general operation of tne disit controller. For more 
information on the Micropolis disx unit see [Ref. 13J . 

1 . Interface Signals 

Interface to tne M icropolis ais£ drive is made 
through a 34 pin edge connector located on tne controller 
printed circuit board. Tne interface is structured around 
an 8-bit bi-directional data bus and 9 control lines. For 
ease of reference, the 8 data lines will hereafter be 
referred to as BUS0-BUS7 with tne BUS0 line corresponding to 
tne least significant bit and tne BUS? line tne most 
significant bit. The control line names and a complete 
description of eacn is contained in tne list below. Note 
that in tnis list, reference is made to tne logical 
condition of tne signal (true = 1 and false = 0) ratner than 
tne signal's electrical polarity. 
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a. SEL: Since tne tticropolis controller can slave 



another 


dis£ 


uni t 


off of 


it , 


this 


signal is provided to 


select 


which 


disK 


uni t 


t 0 


use . 


This application only 


utili ze s 


one 


di sic 


uni t 


and 


it is 


jumper configured to 



respond to address 0. Tnus , SEL snould always be 0. 

o. ENABLE: This signal is normally held true. If 
made false (2 microseconds minimum), a reset is applied to 
the controller logic. Tne controller will indicate tnat it 
is susy (through tne CBQSY signal described below), 
important flags and registers are tnen initialized ana 
approximately one second later, tne controller will indicate 
tnat it is ready to accept commands from tne host computer. 

c. VSTR : The write strobe is a signal from tne 
host computer to tne controller tnat tne information on 
BtfS0-BUS7 is valid. Tne nost pulses tne write strobe line 
while driving tne bus. On tne trailing edge of VSTR , tne 
controller will copy the contents of tne bus into a buffer. 
Tne byte is tnen interpreted by tne controller as either 
control (DATA = 0) or data (DATA = 1). 

d. RSTR: Tne read strobe is a signal used by tne 
host to indicate to tne controller tnat it is ready to input 
a byte of information. Vhen tne host drives RSTR true, the 
controller drives tne bus with tne contents of either its 
lata buffer (DATA = 1) or its status register (DATA = 0). 
Tne controller will drive tne bus as long as RSTR is true. 
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Thus, once the host has copied the bus, RSTR must be jade 
false asrain to regain access to the bus. 

e. DATA: This signal selects either tne controller 
lata or control ports as described above. 

f. CBUSY: Tne controller will set C3USY to 0 
whenever the host issues it a command. CBUSY is returned to 
1 by the controller when tne command is terminated. 

g. ATTN: Tne attention signal is set true cy tne 
controller at tne end of each command. The host responds by 
reading tne Termination Status byte from tne data port. 
ATTN is set false by the controller only after the 
Termination Status byte nas been read. 

h. DREQ: Data request is used to request the 
transfer of data to/from tne controller. Tne direction of 
tne transfer is controlled by tne OUT signal. Data can only 
be transferred by tne host in response to DREO. 

i. OUT: This indicates the direction of lata 
transfer. If OUT = 1, tne transfer is from controller to 
host (a READ operation). If OUT = 0, it is from host to 
controller (a tfRITE operation). 

All bus lines and control signals (except CBUSY) are 
active low at the interface connector. The physical 
interface to the 8 controller bus lines must be tnrougn an 
INTEL 8226 inverting bi-directional dri ve r /recei ver cr its 
equivalent provided by the host system. Tne host must also 
provide IK onm pullup resistors on each of the bus lines. 
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Interface to tne SEL, ENABLE , BATA, WSTR, and RSTR 
control lines is tnrougn a 7438 inverting driver or its 
equivalent. Tne ATTN, CEUSf, DREQ, and OUT control signals 
are used in a DMA interface environment. If operation is in 
tne programmed I/C mode, tne DMA signals do not nave to be 
pnysically connected. Tne logical condition of tnese 
signals can be obtained by reading tne status register (see 
RSTR above). 

2 • General Operation 

Command execution is started in tne controller board 
by writing a command byte to tne command port, followed by 
vritine six parameter bytes and a GO byte to tne data port. 
Tne command byte identifies tne type of command wails tne 
parameter bytes contain tne control and addressing 
information necessary to execute it. Tne GO byte actually 
starts tne command execution and can contain any value. 
After tne controller nas executed tne command, a Termination 
Status byte is written to its data port and ATTN is set. 
tfnen tne aost reads tnis byte, tne command execution is 
complete and tne controller can accept a new command. 

3. Commands and Error Recovery 

Tnree types of commands can be executed: non-data 
transfer, transfers from nost to controller (write), and 
transfers from controller to nost (read). Tne non-data 
transfer commands are used for dist maintenance. Tnis set 
of commands permit, amone- otner tnings, tne initialization 
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and/or verification of all 530 tracts associated witn cne of 
tne five drive neads. 

Tne read and write commands nave tnree major 
options: operation on an entire tract or a single sector, 
programmed I/O mode or DMA mode, and automatic retries 
enabled or disabled. Tne single sector, programmed I/O, and 
automatic retries enabled options were used for all 
read/write operations in tnis implementation of "icropolis. 
Tne automatic retries feature is an extremely powerful one 
and warrants furtner discussion. 

If automatic retries are enabled, tnree levels of 
retry are performed by tne dis& controller tor data errors. 
In level one, a correction attempt is made on tne data using 
tne standard CRC-CCITT 16tn order polynomial. If tne 
correction attempt was successful, tne corrected data is 
transmitted to tne nost. If not successful, a level two 
retry is invoiced. Level two will repeat tne operation and 
correction attempt up to ten times. If still unsucessful, a 
level tnree retry begins. In level tnree, tne read 
amplifier ?ain is increased and level one and two retries 
are performed. If tnis fails, tne nead positioner is offset 
one way tnen tne otner from tne tracic center and level one 
and two retries are performed again. If ail retries fail, 
tne command is aborted and an error condition is placed in 
tne Termination Status byte. Tnis feature clearly provides 
for a nign degree of data integrity and error recovery. 
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- • Pa rame ters 

All six parameter bytes required as a part of 
command execution must be transmitted to tne controller even 
tnougn some may not be used. A description of tnose 
parameters is contained in tne list below. 

a. Parm 1: Bits 4-7 contain tne nead address (a 

value between 0 and 4). Bits 2 and 3 are set to 0 and bits 
1 and 2 contain tne unit address. Recall tnat only one 

Micropolis dist unit is used and tnat its address is 0. 
Tnis mates only five values valid for Parm 1 depending on 
tne bead selected: 00K , 10H, 20H, 30H, and 40K. 

b. Parm 2: Tnis parameter contains tne least 

significant 0 bits of tne tract address. 

c. Parm 3: Bits 0-2 contain tne most, significant 3 

bits of tne tract address and all otners are set to 0. 

d. Parm 4:. Contains tne sector address (a value 

between 0 and 23) . 

e. Parm 5: Contains tne number of sectors to 

process. In tnis implementation, tnis value is set to 1. 

f. Parm 5: Tnis parameter is used only in tract 

oriented commands and since sector read/write operations 
were used, tnis byte is always set to 0. 

C. PREVIOUS tfORK 

Tne tficropolis unit nad been previously interfaced in an 
INTEL MDS single user environment by James Jobn [Hef. 14j . 
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Ta is interface was constructed using the iSBC's onboard 9255 
programmable I/O device. 

The 9255 can be configured in a combination of tnree 
modes: mode 0, mode 1, and mode 2. These modes and the 
operation of tne device is discussed in detail m [Ref. 15J 
In John's application, the 9255 was programmed in mode 2 and 
mode 0. ^ode 2 provided 8 bi-directional data lines at Port 
A and 5 control lines for the bi-directional data port and 3 
output only lines at Port C. Mode '<5 provided 8 output only 
lines at Port B. 

Tne required 8225 drivers with IK onm puilup resistors 
are hard-wired on the 96/12A in line with tne bi-directional 
data port of the 9255 and did not nave to be added. The 
required 7438 drivers were inserted in sockets All and A12 
on tne iSBC in line with Ports B and C. Jonn's final 
interface design is depicted in Figure 4.1. (All active 
low signals are indicated by following the signal name with 
a "/", sucn as ACK/. Tnis notation will be used throughout 
th remainder of this thesis.) Note from tnis figure that 
tne STB/ and ACK/ signals needed by tne 8255 to latcn input 
data and enable the tri-state outDUt buffer are provided by 
wiring two of tne Port B output lines into the STB/ and ACK/ 
inputs. These signals must be controlled locally as the 
disic controller provides no compatible signals. 

As part of James Jonn's wort, ne also reconfigured tne 
CP/M BIOS to accomodate the Micropolis disit and two INTEL 
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Figure 4*1 Previous Design 
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MDS floppy diSK units. This ?ave a complete, single us°r 
system vitn a total of seven accessible drives. 

D. INITIAL EFFORTS 

It was envisioned to expand on Jonn's wor«c to accomplisn 
integration of tne Micropolis dis£ drive into tne AEGIS 
multiuser development system. Tnerefore, tne first logical 
step was to set up James Jonn's system and test it. 

Various files were read from tne floppy drives and 
written to tne Micropolis drives and vice versa. Inis 
or^inally appeared successful. However, whenever a source 
code assembly language file was read and an assembly 
attempted on tnat file, tne assembly conti nuously failed. A 
print-out of tne source code file was ootained and various 
errors were found tnat did not exist in tne original file. 
Tnis led to tne belief tnat a bad copy of tne ASM86.CMD 
assembler was bein? used and it was crashing- not only 
tne system but also tne file it was operating on. A good 
copy of tne assembler was obtained and tne test repeated 
witn continued negative results. Hardware connections were 
verified and re-verified. Software was also cnecxed and re- 
cnecKed. Nevertheless, numerous other experiments still 
produced negative results. 

At tnis point, tne design was re-examined and tnis 
uncovered tne problem. A timing analysis was performed and 
is presented in Figure 4.2. The latch of WRITE data from 
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the Host to tne controller occurs within a valid region 



(window) as snown. However, tne iatcn of READ data from 
tne controller to tne nost does not. Tnis occurs because 
tne RSTR/ and STB/ signals are physically wired togetner. 
Botn will go active/inactive at exactly tne same time. Tne 
controller will noil tne bus active only for 100 nanoseconds 
maximum after RSTR/ goes inactive. However, tne 3255 
requires 150 nanoseconds minimum to Iatcn tne data after 
STB/ goes inactive. Tnus, tne data tnat is latcned may or 
may not be valid. This explains why marginal success was 
obtained wnen source files were just written to and read 
from the Micropolis. It also explains wny random errors 
tnat were not present in tne original source file were found 
in tne file tnat was printed from tne Micropolis. 

E. NE V DEVELOPMENT 
1 . De si gn 

A new interface was designed in wnich tne ACS/, 
STB/, RSTR/, and V STR/ signals were all independently 
controlled by setting tne appropriate bit on tne 8255. 
Because tne condition of eacn individual signal is now under 
software control, it can be ensured tnat tne data will 
remain valid long enough for either tne controller or tne 
8255 to latch it. The new design is presented in Figure 4.3 
and tne associated timing diagram in Figure 4.4. As snown 
in Figure 4.4, all latching occurs in valid windows. 
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Pifure 4,3 Interface Design 
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To write a byte of information to tne controller, 
tae byte is first written to Port A of tne 8255 ana tne ACK/ 
signal is set to 0 , enabling* tae tri-state output buffer and 
driving tae dus lines wita tae contents of tnat ouffer. 
Next, WSTR/ is turned on (set to 1) and turned off (set to 
0). Tae controller will copy tne bus lines into an input 
buffer on tne trailing edge of WSTR/. Finally, tne tri- 
state buffer of tae 8255 is disabled by setting ACK/ to 1 
and tae write operation is complete. 

To read a byte of information from tne controller, 
RSTR/ is activated. Tais will cause tne controller to drive 
tne bus lines witn its data buffer as long as RSTR/ remains 
active. Next, STB/ is turned on (set to 0) ana turned off 
(set to 1). Tnis copies tne bus lines into tne 8255 input 
buffer. Lastly, tne RSTR/ signal is deactivated and tne 
byte can be accessed by reading Port A of tne 8255. 

Eacn of tae bit set/reset operations needed in tne 
read or write functions just described, requires a .*07 and 
an 0(JT instruction for a total of 20 clock: periods in tne 
8086. Vita a 5 Maz clock:, tais is 4.0 microseconds and 
clearly, more tnan meets tne response or settling time 
constraints of eitner tae 8255 or tne disk controller. 

2. Impl emendation and Testing 

Tae design in Figure 4.3 was set up on an iS3C 
86/12A. Tae following nardware cdan^es were required to tae 
board : 



62 



Remove jumpe rs : 

E13-E14 E17-E18 E21-B25 

E15-E16 E19-S20 E28-E29 

Aid jumpers: 

S28-E15 

E30-E17 

E30-E25 

Add 74:38 drivers in sockets: 

XA11 
X A12 

Next, a cable was constructed tnat would interface 
the J1 34 pin edee connector of tne 06/12A to the J101 34 

pin edge connector of tne Micropolis controller. Tne 

cabling requirements are snown in Table 4.1. Tnose pins not 
shown are not required and are not connected. 

Tne 86/12A was tnen placed in tne iCS 80 cnassis for 
testing. Only tne most primitive routines were written to 
read and write to various .leads f traces, and sectors of tne 
Micropolis. Tnese were executed under DDT86 to allow manual 
changing of tne command and parameter bytes. First, a 
single character was written to fill an entire sector and 
tnen read tacit. Tnis was successful. Next, a text message 
was prepared and written to a variety of different sectors 
and traces of eacn drive head. In eacn case, tne message 
was retrieved successfully and it was concluded tnat tne 
design was functional. 
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iSBC 8B/12A J1 kICROPOLIS J101 

cmwTSCTOR PINS DESCRIPTION CONNECTOR PINS 




Tabic 4.1 Interface Cable Connection Requirements 
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F. INTERRUPT MECHANISM 

I • 

Vitn tne interface design complete, it remained to 
design tne timer-controlled interrupt for polling 1 common 
memory. Tne design was based on two devices available on 
tne 36/12 A : tne INTEL 8253 programmable interval timer ana 
tne INTEL 8259 peripteral interrupt controller. 

Tne 3253 nas tnree independent 16-bit counters ana 
eacn can be programmed in one of five modes. retails of its 
operation can be found in [Ref. 15J . Tne design employed 
nere uses only counter 0 and it is programmed in mode 0, tne 
"interrupt on terminal count" mode. In tnis mode, tne 
output of tne timer will be driven low wnen tne mode control 
word is written to it. After tne ^ount value is loaded into 
tne count port, tne counter will begin counting down. Upcn 
reacning tne terminal -count, tne timer output will go nign 
and remain nign until a new count value is loaded. 

Tne mode control word selected was 3£E. Tnis gives 
timer 0 tne following cnaracteristics : operation in mode 0 , 
binary 16-bit counter, and load count value as least 
significant byte first tnen most significant byte. Tne 
count value used was 3Z0CE wnicn corresponds to an interval 
of 10 milliseconds at a does frequency of 1.23 MHZ (tne 
cIock frequency supplied to tne 3253 by factory default). 

Li£e tne 8253, tne INTEL 8259 nas many different 
options available. Only tnose appropriate to tnis design 
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are covered in tne following paragrapns. lor more 
information see [Ref. 15J . 

Tnree initialization command words ( ICW ) and one 
operational control word (OCW) are required to properly 
configure tne 3259. ICWl is set to 13fi. Tris corresponds 
to edge triggering, no slave interrupt controllers, and ICV3 
is not required. 

ICW2 is set to 40 H. Tnis is used in conjunction 
witn tne interrupt level number to arrive at tne address in 
tne interrupt vector taoie (see Figure 2 .3) from wnicn to 
obtain tne code segment and offset values for tne interrupt 
nandler routine. Interrupt level 6 was cnosen and tnis 
corresponds to a vector table address of: 

4 * ( 40H + 5H) = 11BH 

Tnerefore, tne address of tne interrupt nandler must be 
loaded in tnis location. 

ICW4 is set to 0FH. Tnis indicates 3036 mode, 
automatic end of interrupt, and buffered mode. 

CCW1 is used to mass unused interrupts. It is set 
to BFH. Tnis enables interrupt level 6 and disables all 
otners . 

2 • Implementation and Testing 

To implement tne design simply required removing 
default jumper 379-583 and connecting a jumper between E75 
and ES3 . Tnis connects tne output of timer 0 on tne 8253 to 
tne interrupt 6 input on tne 8259. 
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A primitive routine was written tnat initialized 
botn devices as descibed above and loaded an interrupt 
nandler address into tne vector table. Tne interrupt 
handler was a simple routine that performed tne following: 
saved all registers on tne stacK, printed a message at tne 
console, restored all registers, and reloaded tne count 
value into tne timer. When tested, tne timer-controlled 
interrupt functioned normally. 

G . MCORTEX INTERRUPT 

As stated in Chapter III, tne MCORTEX operating system 
uses a type of global interrupt for message broadcasting. 
Tne hardware configuration required to achieve this is 
depicted in Figure 4.5. Port C of tne 8255 is initialized 
as an output port and to "issue” tne interrupt requires 
setting bit 7 of port C to 1. 

It is envisioned tnat future development will allow tne 
CP/M-86 operating system and MCORTEX to co-exist in the 
local RA* of eacn independent user on tne AEGIS multiuser 
development system. Tnis was tasen into account in this 
research effort. Nevertheless, changes in the hardware and 
hardware initialization will be necessary before tnis can be 
achieved. Those changes are identified below. 

3oth MCORTEX and CP/M-86 (with tne Micropolis 
integration), initialize tne 8259 interrupt controller with 
exactly the same initialization command words. Interrupt 
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level 5 was cnosen for M icropolis to be of a lower priori tv 
tnan me interrupt level 4 used by MCORTEX. However, recall 
from Section F-l tnat tne operational command word is set to 
BFE and tftis masxs all interrupts except level 6. Tnis 
value will nave to be cnanged to AFH to activate interrupt 
level 4. 

The M CORTEX interrupt bit will also nave to be moved as 
snown by tne dasnel line in Figure 4.5. Tnis is required 
because tne Micropolis disc drive uses Port C as a strobed 
input/output port. Tne nardware dependent source code found 
in tne advance, pre-empt, and initialization processes of 
MCORTEX will nave to be updated to reflect tnis cnan^e. 



7. SOFTWARE IMPLEMENTATION 



A. maintenance software 

.Before tne Micropolis list unit could be used, it was 
first necessary to write a routine tnat would initialize and 
format tne disfc surfaces. Tne purpose of initialization is 
to write tne address and data fields of eacn sector onto tne 
surface. Tnis is a controller invoiced function. After 
initialize ti on, tne address field will contain tne required 
nead number, tracK number, and sector number. All data 
fields will contain 51H, 

Tne purpose of formatting is to cnange tne contents of 
tne data fields from tne 51H tnat resulted during- controller 
initialization to E5H . Tnis is necessary because CP/M-96 
expects to find E5H in tne data fields in order to create a 
directory space. 

Tne routine tnat was developed, MICMAINT.CMD, is 
completely menu driven and extensive error cnecicing is 
performed on all user supplied input. Tnis routine provides 
not only initialization and formatting options out also 
verification of initialization and verification of 
formatting. Tnese additional facilities enaDle tne user to 
easily uncover any disE surface defects. For an explanation 
of now to use MICMAINT.CMD, see APPENDIX A (User's Manual 
for tne AEGIS System). 



Tne Micropolis distc surfaces were successfully 
Initialized and formatted with MICMAINT.CMD. No surface 
defects were found in tne initialization process. 

B . DEV EL0P M ENT OF THE DEVICE DEPENDENT ROUTINES 

As stated in Cnapter III, seven device dependent 
routines were necessary in order to interface tne ^lcropoiis 
disic drive into tne AB3IS development system. Tde SELDSK, 
HOME , SETTRE, SET SEC, READ, and 'VRITE routines were 

developed simultaneously. Tms was a consequence of tne 
Micropolis 512 byte pnysical sector length. Tne C P/ M -86 
operating system utilizes a 128 byte logical sector lengtn. 
Tnerefore, a pnysical to logical sector mapping 

(blocltlng/deblocicing tecnnique) was required in order to 
communicate witn CP/M. Tne metnod used nad an effect on ail 
six of tnese routines. 

Tne INIT routine require! special attention as it was 
used net only to initialize tne parallel I/O port, tne 
timer, and tne interrupt controller out also to embed tne 
tne interrupt nandler witbin tne operating: system. Tne 

details of betn tne INIT routine development and tne 
bloctcing/deblocXing algorithms used are given below. 

1 • Initialization and. Interrupt Handler 

The hardware initialization required for tne INIT 
routine nad been previously developed and tested (see 
Cnapter 17). It remained to develop an interrupt nandier. 
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Recall tnat tne sole purpose of tne interrupt 
nandler is to effect communications Between tne ^icropolis 
disic controller and. tne common memory. A status Byte, 
command packet, and a 512 Byte sector Buffer were 

established in tne common memory to coordinate this effort. 
Figure 5.1 depicts tne resulting map of common memory 
address es . 

Tne status Byte serves two purposes: to inform tne 

interrupt nandler tnat a disit read/write operation is Being 
reauested and to return tne success/failure code tnat 
resulted during tnat operation. It is initialized to 2 FFH 
as a part of tne ^icropolis INIT routine. Tne status byte 
is set to 00H to request a diSK operation and tne interrupt 
nandler will return 0AH if tne operation was successful. If 
it failed, one of tne nine error codes listed in tne 
Micropolis Tecnnical v anual pages 24-25 is returned. 

Tne command packet consists of eignt values: tne 

command byte, six parameter bytes, and tne GO byte. The 
parameter bytes were discussed in detail in Chapter IV, 
Section B-4. The GO Byte can ta±te on any value and 0 was 
used. The command Byte used in this implementation can be 
either 47E for tne write operation or 4EH for tne read 
operation. Tnese values give ootn tne read and write 
operations the desired characteristics of single sector 
processing, programmed I/O data transfers, and automatic 
retries enabled. 
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Figure 5.1 Final Conon Memory Allocation Map 
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Tne sector Duffer is used to transfer data to and 
from tne controller. Bot.n primary and alternate data 
transfer protocols are possiDie in tne programmed I/O mode 
and tnese are shown in Figures 5 .2 and 5.3 respectively. 
The alternate protocol differs from tne primary protocol in 
the amount of status checking required. as snown, tne 
primary protocol requires a status caeca: between tne 

transfer of eacn data byte wnile tne alternate does not. 
Use of tne alternate protocol is possible only if tne loop 
time is greater tnan tne 1.5 micro seconds /byte response time 
of the controller. Recall from Chapter IV that all 
operations require a minimum of a MOV and an OUT instruction 
and tnese two instructions need 4.0 microseconds to execute. 
Thus, the alternate lata protocol was employed in the 
interrupt handler to improve response times. 

A brief description of how the resulting interrupt 
handler worics is in order. When tne timer-controlled 
interrupt occurs, tne interrupt nandler routine will save 
those registers that are needed by tne routine on tne stacx 
and cneci tne common memory status byte. If a non-zero 
value is found, tne timer count value is re-loaded, tne 
registers are restored from tne stac*. and a return is 
executed witn no further action tairen. If a zero value is 
found, tne command byte is read to determine the direction 
of data transfer (to tne common memory sector buffer for a 
read operation and from it for a write operation). Next, 
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the entire command pacitet is transmitted to tne controller 
and wnen tne DREQ signal is sensed* tne data is transferred 
using tne alternate protocol described above. Finally, tne 
Termination Status byte is read from tne controller and 
placed in tne common memory status byte, tne registers are 
restored from tne stact, tne timer count value is re-loaded, 
and a return is executed. 

Tne interrupt handler and initialization routines 
we re loaded into memory and DDT86.CMD was used to manually 
set tne interrupt handler's common memory variables. This 
enabled extensive testing to be carried out and tne routine 
was found to function as designed. 

At tnis point, tne interrupt handler was being 
loaded into local RAM at tne top of tne transient program 
area ( T P A ) . Because all users nave access to tnis area, it 
would be quite a simple matter to write over or otherwise 
alter the routine and thus, disable tne disK communications 
capability. A more practical solution had to be found. It 
was decided to place tne interr pt handler immediately 
following tne return instruction of tne v icropolis INIT 
routine for two reasons. First, because tne routine would 
be a part of tne operating system, it would not be as easily 
accessible by tne user. Secondly, tnis co-locates the 
routine witn tne initialization of tne nardware used to 
invoke it. This maices future modifications to tne routine 
or tne tPChniq.ue easier. 
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2 • -Pi o^fting/DgP locking 

Tne pnysical to logical sector mapping require! for 
tne Micropolis disic system was supplied, in part, by tne 
Digital Researcn DEBLOCK . LIB source file. Tnis file is 
supplied as a part of tne CP/M-Bb operating system. It 
provides a complete routine for HOME, S3TTRK, SETSEC, and 
SELDSK operations. READ and WRITE operations are also 
supplied but require tne user developed routines READHST and 
WRITERS T. 

Tne READHST routine tnat was developed prepares tne 
command packet described in Section 1 above and sends it to 
tne common memory. Tne status byte is trier, cnanged to 0 and 
tne routine waits for tne interrupt nandler to cnange tne 
status byte. If tne status byte indicates success, tne 
common memory buffer is copied into a local sector buffer 
and tne operation is complete. If an error is indicated, 
tne error flag used by tne BDOS is set and tne common memory 
buffer is not copied. 

Tne WRITEHST routine closely follows tne READHST 
routine. First, a command packet is prepared and sent to 
tne common memory. Tnen tne local sector buffer is placed 
in tne common memory sector buffer ana tne status byte is 
set to 2 . The routine tnen waits for tne status byte to 
indicate success or failure and tne BDOS error flag is set 
accordingly. Tnis completes tne write operation. 
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It snould tie noted tnat in tne RE ADHST and 'vR I TEH ST 
routines, tne status byte must oe set to 0 only after tne 
command pactet and common memory sector buffer (write 
operations only) are set up. Tnis is necessary because wnen 
tne interrupt occurs, tne interrupt nandler will use tne 
command paciet and sector buffer in common memory at tnat 
time. If tne status byte is set to U prior to preparing 
common memory, tnere may or may not be enousn time to 
prepare it. Setting tne status byte to id after tne common 
memory nas been prepared ensures tnat tne intended operation 
will be carried out. 

Tne CEBLOCA.LIH routines cited above were used in 
tneir entirety to provide tne remaining device dependent 
routines. However, one minor alteration was necessary. All 
variable names were prefixed witn "MIC". Tnis was reauired 
because Almquist and Stevens' wort used tne same routines 
for tne REMEX nard disx [Ref. 5J . 

C. INTEGRATION INTO THE MULTI-USER SYSTEM 

To integrate tne Micropclis nard disK into tne multi- 
user system, tne seven device dependent routines were placed 
in a single file, MICHARD . AS6 . Next. tne DisR Parameter 
Table was updated to reflect tne Micropoiis dis* unit. Sacn 
one of tne five drive neads was configured to be to a 
logical C?/m drive. Tne final logical to pnysical device 
mappin? for tne multiuser system is snown in Table 5.1. Tne 
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Logical 

Device 

Xunber 


Logical 

Device 

Letter 


Physical 

Device 


0 


A: 


MBB-80 Babble Memory 


1 


B: 


REMEX Floppy Disk Drive 


2 


C: 


REMEX Ploppy Disk Drive 


3 


D: 


REMEX Hard Disk Head 0 


4 


E: 


REMEX Hard Disk Head 1 


5 


F: 


REMEX Hard Diak Head 2 


6 


0: 


REMEX Hard Disk Head 3 


7 


H: 


Micropolia Hard Disk Head 0 


8 


Is 


Micropolis Hard Disk Head 1 


9 


J: 


Micropolia Hard Disk Head 2 


10 


K: 


Micropolis Hard Diak Head 3 


11 


L: 


Micropolis Hard Disk Head 4 



Table 5.1 Logical to Physical Device Map 



80 



calls to REQUEST and RELEASE were placed in tne READ and 
WRITE routines, tne label table file, CP M MAST.CFG, was 
updated, and an 'INCLUDE RICHARD. ASS ' statement was placed 
in tne BIOS module. Tne steps of Figure 3.4 were followed 
and a new CPM.SYS was generated. Note tnat in tne original 
system of Almquist and Stevens, tnis file was titled 
"CP^AST.CMD". It was necessary to cnange tne name as a 
result of otner wori accomplisned during tnis researcn 
effort. This is discussed in tne next section. 

Tne master conditional assembly switcn in tne BIOS 
module was set to false and a C?M SLAVE. S IS file was created. 
Tne slave version is different from tne master version in 
that tne Micropolis interrupt nandler and nardware 
initialization, as well as the intializaticn cf common 
memory syncnronization variables, are not included. 

When the system was initially tested, it loaded 
properly and only certain commands, such as DIR and REN, 
could be executed. Commands sucn as PI? and STAT would not. 
In fact, tne system would come to a halt and reauired re- 
booting wnen these commands were attempted. v any 
experiments were conducted in an effort to find tne source 
of tnis problem. It was discovered tnat only the built-in 
commands (DIR, REN, ERA, and TYPE) would execute. 

The difference between a built-in command and a 
transient utility program is tnat tne built-in commanc. 
resides in memory as a part of tne operating system wnile 
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the transient utility program resides on disic. Thus, 
transient utility programs, liJce PIP, must first re loaded 
in memory. This program then becomes the applications 
program of Figure 3.1. Any disfc operations required in the 
process of executing tne program must be performed by the 
BDOS module. The applications program indicates that a disc 
operation is required bv first setting the CX register of 
the 6086 to the appropriate function number and then 
executing the software interrupt number 224. When 

interrupted, the PDCS module will carry out the indicated 
function . 

This conflicts with hardware interrupts. Recall from 
Chapter II, Section A-4 that a software interrupt is of 
higher priority tnan a hardware interrupt. As snown in 

Figure 2.4, when a software interrupt is being processed, 
the hardware interrupts are not sensed. A transient utility 
program enters tne BDOS Dy executing a software interrupt as 
described above to perform any read/write operation. In 
tnis implementation, the read/write operation for the 
Micropolis can be completed only if tne Hardware interrupt 
occurs. Therefore, a deadlock results. 

Tnis problem was solved by executing an INT 70 
instruction on the master board wnenever a Micropolis 
read/write operation is needed. Tnis forces the interrupt 
handler to execute even thougn the entry to tne BDOS nas 
prevented tne hardware from causing its execution. Tne 
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CPM.SYS and CFMSLAVE.CMD files were re-generated as stated 
above and tested again. Ail command file executions on tne 
master board were successful. All four AEGIS system boards 
were tnen booted and tne multiuser system was tested. 
Simultaneous operations conducted on tnese four ooans were 
also successful and it was concluded tnat the Micropolis 
iisK unit nad been successfully integrated into tne 
multiuser AEGIS development system. 

D. A NEV FOOT ROM AND LOADER 

Early in tne development stages of tne Micropolis 
interface, it was discovered tnat a power failure would 
destroy tne contents of bubble memory. Since, tne operating 
system was booted from tnis device, wont could not be 
continued until tne bubble memory nad been re-formatted and 
re-loaded witn tne operating system. Tnis is an extremely 
time consuming tass and tne method is detailed in [Ref. b. 
Chapter IV, Section DJ . Thus, it was considered desirable 
to be able to boot load tne operating system from tne REMEX 
floppy dis£ drive. A new boot ROM and loaner routine were 
developed for tnat purpose. 

1 . Boot. Leader 

As stated in Cnapter III, tne fcE byte EPROM cnips 
on the iSBC 86/12A contain tne INTEL 95? monitor and control 
is passed to tne monitor whenever tne system RESET button is 
pushed. Both the bubble boot loader and the INTEL MDS 
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system boot loader co-exist wi tn toe monitor in tnis 8£ 
EPROM space. 

It was originally tnougnt tnat toe REMEX boot 
loader could simply be added to toe EPROM. However, tnis 
was not possible because tne space occupied by tne monitor 
severely limits tne space available for programs. Tne ££ 
EPROM cnips occupy tne address space between 0FE000E and 
0FFFFFH . Tne 9b7 monitor occupies tne space between 0FE000H 
and 0FFD22H and contains a set of jump vectors at tne base 
of tnis address space. Tnis leaves approximately 720 
decimal bytes of space for boot loader programs. It was 
decided at tnis point to maintain tne monitor and INTEL MLS 
system boot loader in tne EPROM and to replace tne bubble 
boot loader wi tn tne one for REMEX. Tnis wouli preserve tne 
flexibility of being able to boot load tne 86/12A from two 
different systems instead of just one. 

A boot loader simply loads tne program located cn 
tne reserved system traces of tne disic into memory and 
passes control to it. It is tne responsibility of tnis 
program, tne loader, to loaa tne actual operating system 
into memory and pass control to it. To develop a boot 
loader for tne REMEX would require tnat a wording system 
loader be placed on tne system traces of tne diskette. 
Since one nad net yet been written for tne REMEX, tne bubble 
system loader, LDRM3S0.CMD, was used for development 
purposes. Tnis would permit tne boot loader under 
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developmen t 


to load the bubble system loader from 


th? REMEX 


floppy 


di st 


and this loader 


would then load the 


operating 


system 


from 


bubble memory 


. A boot loader 


program , 


RM7R0M. 


A86 , 


was successfully 


written, debugged. 


and tested 


us in? 


thi s 


technique. The 


source code for the 


INTEL MDS 


boot 


loader 


was tnen successfully integrated into 


RMXROM. 


A86. 








2. 


System Loader 








Tne 


system tracts of 


a single density. 


eight incn 


floppy 


di st 


have S.5K bytes 


of storage capacity 


and tne 



system loader must De limited to tnis size. To generate a 
loader BIOS module for the REMEX, a conditional assembly 
switch was added to the present BIOS module. The switch, 
”loader_bios " , wnen set to true, only includes in tne 
assembly tne device dependent code related to tne REMEX 
floppy disic drive. A new label ta.Dle file and a new Disk: 
Parameter Table were created. Tnese files, LDRMAST.CFG and 
LDRMAST. LI£ respectively, reflect tne REMEX floppy list as 
the only disk: drive in tne system. Tne steps of Figure 2.5 
were used to create tne loader (It snould be noted nere tnat 
tne LDCPM.CMD provided by Digital Research for use in the 
loader, expects to find tne system file as CPM.SYS and tnis 
was the reason for the name change cited in Section C 
above). The resulting loader, RMXLDR.CMD, was approximately 
b K bytes and easily fit on tne system tracts. Tne REMEX 
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system loader was debugged and tested using tne REM EX boot 
loader as tne test vehicle. 

3 . Programming the JBFROM 

With the boot loader and system loader routines 
complete, tne EPROM chips could now he programmed. Tne 85 
bytes of EPROM consist of four 2E byte INTEL 2715 's. 
Because of tne even-odd addressing used on the 85/12A, two 
of tnese occupy tne even 45 byte address space while tne 
other two occupy the odd 45 byte address space. Because the 
only space available for boot loaners is located entirely 
within the upper 45 Dytes of EPROM, it was necessary only to 
modify tne two 2718's occupying this address space. 

ELT65.CMD was used to read tne contents of tne 
upper 4 5 bytes of the 66/12A's EPRO v and tnis was saved as a 
CMD file. Again using DDT85.CMD, tne existing boot loaders 
were removed from tnis file and tne contents of R M 7R0M.CMD 
were inserted. This resulted in a single contiguous rile 
containing tne upper portion of tne 957 monitor, a boot 
loader for the REMEX, a boot loader for tne INTEL MLS 
system, and tne jump vectors required by the 957 monitor. 

Two routines were tnen written that split tnis file 
into two files: one containing tne odd address bytes and the 
other containing tne even address Dytes. Two new INTEL 
2715s were tnen programmed with the contents of these two 
files. Tne newly programmed cnips were placed on tne iS3C 
S6/12A and tested. The INTEL MDS system was successfully 
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boot loaded by typing tne command "GFFD4:G?" from tne monitor 



and 


tne 


AEGIS developme 


nt system was 


successfully rooted 


from 


tne 


REMEX floppy 


disn: drive by 


typing tne command 


"GFFD4: 4*' 


from tne monito 


r . 
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VI. RESULTS AND CONCLUSIONS 



A. EVALUATION 

Two tests were conducted to evaluate tne performance of 
tne AEGIS development system. Tne first test consisted of 
assembling a bK byte file and recording tne assembly time. 
Tnis was done for botn tne tficropolis dis£ system and tne 
REMEX Data Warenouse witn one, two, tnree, and finally, four 
computers operating simultaneously. Timing was accomplisnei 
witn a standard stopwatcn. Tne results of tnis test are 
snown in Table 6.1 

Tne second test consisted of file transfers using* tne 
PIP.CySD file utility. Tnis represents a worst case 
situation as file transfers are I/O intensive. Four 
transfer directions were tested: REMEX to REKEX, ^icropolis 
to REMEX, REMEX to licropolis, and "icropolis to v icropolis. 
A single 27X oyte file was used as tne transfer file. Once 
again, tne test was conducted witn first one computer 
operating and tnen witn two, tnree, and four "omputers 
operating simultaneously. Tne results of tnis test are also 
snown in Table 5.1. 

As indicated Dy tne assemoly data, tnere is not a linear 
relationsnip between tne number of computers in tne system 
and tne times required for assembly. In fact, witn four 
computers, tne time required for assembly of tne 6K byte 



88 



Cofloand 


Execution tinea ( in aeconda) 


One 

Computer 

Operating 


Two 

Computers 

Operating 


Three 

Conpntera 

Operating 


Pour 

Computers 

Operating 


ASMS 6 
HEUEX 


25*2 


37.0 


43.7 


58.2 


ASUS 6 

Micropolis 


30.2 


49.2 


62.4 


76.5 


PIP 

BEUEX 

to 

REUEX 


5.5 


22.3 


29.7 


32.9 


PIP 

Uieropolia 

to 

REUEX 


7.4 


22.4 


36.0 


43.0 


PIP 

REUEX 

to 

Uieropolia 


9.3 


36.0 


46.0 


62.5 


PIP 

Uieropolia 

to 

Uieropolia 


11.5 


38.9 


48.6 


67.3 



Table 6.1 Teat Data 
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file is rougnly 2.5 limes ine lime required wiin just one 
computer. Tnis is accounied for Dy realizing- mai, except 
for ine contention for snared resources (common memory and 
nence, lisa: access time), eacn computer can assemble tne 
file independently of tne otners. 

From tne file transfer data, as well as tne assembly 
data, it is immediately apparent tnat tne REMJSX Data 
tfarenouse operates faster man tne Micropoiis disk system. 
However, tnis is not an order of magnitude as one mignt 
expect vnen comparing a DMA interfaced nard disk to one tnat 
is interfaced using programmed I/O. If tne ten millisecond 
polled interrupt (used to communicate witn tne M icropoiis) 
is taken into account, tne Micropoiis performance would come 
even closer to tnat of tne REMSX . Tne reason tnat tne 
programmed I/O interface performance is close to tnat of a 
DMA interface is tnat more time is expended in disk nead 
movement tnan memory access. 

B. GENERAL CONCLUSIONS 

Tne primary goal of tnis tnesis was met. A naraware 
interface was designed for tne Micropoiis disk drive using 
programmed I/O tecnniques and tnis was successfully 
integrated into tne AEGIS multiuser system. Tne system was 
demonstrated witn four independent users operating 
simultaneously. Tne addition of tne Micropoiis disk system 
to tne AEGIS system provides an additional 35. SM bytes of 
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on-line storage capacity and snoula prove to be more mar. 
adequate for program and data storage, Tnis frees me RSMEX 
nard ai st to be used entirely for tne SPY-lA radar emulation 
rattier than as a software storage media. 

A boot ROM was also developed tnat allowed loading tne 
operating system from the REMEX floppy disK drive. Tnis 
proved to be more reliable tnan tne bubble boot procedure 
used at tne onset of tnis researcn. Tne bubble memory 
frequently "crashed" and required reformatting and reloading 
before it could be used again. The cause for this was never 
discovered except for noting tnat every time a power failure 
occurred, the bubble memory would crash. Tne board has on- 
board power failure protection circuitry. However, tne 
facilities required to thoroughly test this circuitry were 
not available. 

Future research involving tne AEGIS multiuser system 
snould include expansion of tne current 8 K EPROM to lbK and 
development of a boot loader tnat would allow booting from 
any of tne devices in tne system. As tne current system 
stands, if tne REMEX floppy Use drive fails, eitner a new 
boot ROM will have to be generated or tne old bubble boot 
ROM will nave to be restored. Tnis may eventually prove to 
be too inflexible. 

Additionally, some type of protection scheme needs to be 
implemented for common memory. Currently, there is no 
protection and a user program that has gone out of control 
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Tnis 



could quite easily destroy tne data in common memory, 
development would require tnat some type of nardware acc 
control be designed and tne 3I0S module be modified 
activate tnat hardware whenever common memory access 
required . 



ess 

to 

is 
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APPENDIX A 



USER'S MANUAL PUR THE AEGIS SYSTEM 



A. SYSTEM CONFIGURATION 

Tne AEGIS development system consists of: one bubble 

memory board, four INTEL iSEC 86/12A boards, tne REMEX Data 
'Varenouse, tne Micropolis disK: system, and a 32X byte common 
memory board. Tnese boards must meet certain requirements 
in order to worK properly in tne system and tnese are 
described in tne paragrapns tnat follow. 

1. Oilier iSLC 66/12 A 



interface and provides tne bus does and constant ciocic 
signals to tne MULTIBUS. Tnis board must ce positioned in 
tne ICS-60 cnassis in an odd-numbered slot (tne slots are 



Tnis board is used as tne Micropolis disK unit 



numbered from 1 to 16 left to ngnt) 



Tne board 



requirements are: 



Remove jumpers 



El 3-514 
S15-E16 
El 7-518 
E19-E20 



E21-E25 

E28-E29 

E30-E31 

S32-533 



Add jumpers 



E28-E15 

E20-E25 



E30-E17 



Add 7438 drivers in sockets: 



XA11 



XA12 
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This will set up the 2255 interface for the Micropoiis dis£. 
To provide tne constant ciocic and Dus clocic: 

Add jumpers: 

Eie3-Ell?4 E10b-E106 

This board must also contain tne EPROM cnips witn tne REMEX 
Doot routines. Tne final requirement is that tne local RAM 
be made inaccessible to tne MULTIFJS. Tnis is done by- 
adding jumper E112-E114 and removing jumper E115-E128. 

2. All Other iSBQ. 86/12A^s 

Tne remaining boards must nave local RAM 

inaccessable to tne MULTIBUS and must not provide any cIock 
signals. To mafce tne RAM inaccessible, add jumper E112-E114 
and remove jumper E115-S128. To disable tne c loci signals, 
remove jumper E103-E104 and E105-E106. 

3. REMEX Dis* Driv® 

Tne Remex controller board mus be plugged into an 
odd-numbered slot in tne ICS-20 cnassis. 

4. Bubble Memory 

Bubble memory must ce plugged into tne slot 

containing tne RUN /HALT switch (currently position 3). 

5 . 32 K Byte RAM Board 

Tnis board can be plugged into any slot in tne 
cnassis and must be configured to start at address E0000H. 
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B. ACTIVATING TEE SYSTEM 

Before turning any power on, ensure tnat tne RUN/HALT 
switcn locatea on tne front panel of tne iCS-80 cnassis is 
in tne HALT position. Next power-on tne equipment in tne 
following order: 

1. Apply power to tne iCS-80 cnassis oy turning tne 
OFE/ON/LOCK Key to tne ON position. 

2. Turn on tne REMEX diss oy toggling tne OPF/ON switcn 
on tne upper rignt of tne front panel to ON. 

3. Activate tne Micropolis disic oy toggling tne switcn 
on tne ri?nt of its front panel to tne up position. 

4. Spin up tne REMSX dis& Dy placing tne STOP/START 
switcn located on tne upper left panel to START. Tne green 
lifffct over tnis switcn will go out. 

5. Turn on all CRT's. 

b. Toggle tne RUN/HALT switcn on tne iCS-P0 front panel 
to RON . 

7. Press tne master RESET switcn on tne iCS-80 panel 
in. TMs generally requires more tnan one RESET (normally 
tnree or four). Tne indicator of a good RESET is tnat all 
CRT's are printing stars and tnat tne green lignts over ootn 
tne START/STOP switcn and tne A RITE PROTECT switcn of tne 
REMEX are on. 

With tne power applied, tne next step is to load tne CP/M-Sb 
operating system: 
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1. Place a system dislc in tne REMEX drive 2 (leftmost 
floppy drive) la tel up and close tne door. 

2. From the CRT connected to tne master board (tne one 
witn tne Miccropolis interface cable), type "a". Tnis will 

activate tne INTEL 957 monitor. 

3. Enter tne command ”GFFD4:4”. Tne dis£ in drive B 
will be accessed and approximately one to two minutes later 
tne operating system will respond witn: 

ENTER CONSOLE NUMBER 

4. Respond witn tne number on tne front panel of tne 
CRT. Tne next request will be: 

ENTER LOGIN DISK 

5. Respond witn tne desired dis£. Tnis will be tne 
only disK that you will be permitted write access to. 

5. Tne master board is now operational. To activate 
tne remaining boards, first locate any liss drive tftat 
contains tne following files: LD500T.CMD, BOOT.CMD, 

CPMS LAV E. S YS , and LDCPM.CMD. Tnen type tne commands 
"LDBOOT" and "LDCPM" from tnat drive. Next, type "u” from 
any uninitialized board to activate its 957 monitor. Enter 
tne command ”GEe£fc? :40£" . As witn tne master board, you will 
be queried for a console number and login dis£. Reply as 
with the master board. 

C. DE-ACTIVATING THE SYSTEM 

1. Ensure tnat no floppy dis&s are in the REMEX and 
tnat all users nave finished. 
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2. Press in tne master RESET button on tne iCS-90 



cnassis . 



3. 


Place tne RUN/HALT switcn on tne front panel of tne 


iCS-80 


cnassis to tne HALT position. 


4. 


Turn off tne Micropolis dis£ unit. 


5. 


Place tne STOP/START switcn of tne REMEX disfc in tne 



STOP position. Tne green lignt over tne switcn will go out. 
Wnen the light comes ba^s on tne disx nas stopped. Viien 
tnis occurs, turn tne REMEX power switcn to OFF. 

6. Turn tne power oft* to tne iCS-80 chassis. 

?. Turn off ail CRT's. 

D. CREATING A SYSTEM DISK 



1 . 


First, format tne disff. Tnis will nave to be done 


on a 


CP/M compatible system as tne AEGIS system currently 


nas no 


formatting routine. 


2. 


Activate tne system as described in Section £ above. 



Place tne formatted disfc in tne REMEX floppy drive S 



3. 


Locate any drive witn tne following files: 


LDCOPY , 


, CMD , RMXLDR.CMD, CPM.SYS, and PIP.CMD. 


A. 


Issue tne command "LDCOPY RMXLDR.CMD" from tnis 


drive . 


You will be queried as to wnicn drive to write to. 



Respond wi tn "b". 

5. Finally, issue tne command "PIP B: =F :CPM . S YS " (Note 
nere tnat ’F” was an arbitrary cnoice, as any drive witn tne 
specified files on it will worit). 
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6. You now nave a system disit. It can te tested 
following tne activation procedures described in Section if 
above . 

E. MAINTENANCE UTILITIES 

Tne system currently contains maintenance utilities for 
tne bubble memory, tne REMEX Data Warencuse , and tne 
Micropolis lisle system. Tnese are described below. 

1 . Bubble Memory 

Tnere are two system utilities for maintenance of 
tne bubDle memory: DIAG86M.CMD and MB582FMT .CMD . DIAG86M is 
a self test of tne bubble and requires no user input otner 
tnan tne command "DIAG86” to activate it. Any faults 

occurring luring tnis cnecie are reported to tne console. 
MBB80FMT is used to format tne bubble for a CP/ M 

environment. Tne user will be aspect to enter tne base 

address of tne controller. Respond witn "Sfc'Kfc’H". Tne 
formatter will tnen format tne bubble memory. 

2. REMEX DisK Drive 

Two routines are also available for tne REMEX: 
RMXMAINT.CMD and RMXFORMT.CMD. Before eitner of tnese 
routines can be successfully executed, tne local RAM of tne 
board executing tnem must ce made available to tne MULTIBUS 
as tnese routines were not written to pass information 
tnrougn tne common memory. Tnerefore, jumper S112-E114 must 
be removed prior to execution. RMXMAINT is menu driven witn 
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nine available functions. Select the function from tre list 

at the console anl enter that number. Since these routines 

are carried out by tne firmware of the REMSX controller no 

other user input is required. RMXFORMT will format tne 

REMEX for the CP/ bd environment. You will oe queried as to 

wnicn ”nead” of tne disK to format. The head to CP/M 

logical device is given in the following list: 

Head 0 Drive D 

Head 1 Drive E 

Head 2 Drive F 

Head 3 Drive C 

Select the desired head number and enter it. No further 
inputs are required. You will be notified at tne console 
when the formatting is complete. Restore jumper £ 112-5114 
after completing all desired maintenance on the REMEX. 

3 . Mi cr o po 1 i s DisK Svstem 

Tne Micropoiis has a single menu-driven maintenance 

program, MICMAINT.CMD. This program must be executel only 

from tne board containing tne Micropolis interface. Prior 

to running it, ensure that all other system users are logged 

into a non-Mi cropo li s lisle. The Micrcpolis "nead" number to 

CP/M logical dislc is given below: 

Head 0 Drive H 

Head 1 Drive I 

Head 2 Drive J 

Head 3 Drive £ 

Head 4 Drive I 

There are two types of commands in the menu: initialization 

and formatting. Tne initialization commands prepare tne 
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disi for use and verify mat mere are no surface defects. 
Tne formatting commands prepare tne disi for tne CP/M 
operating system. If it is desired to run a initialization 
type of command, six values will be requested. These values 
are described below. 

a. Pnysical Address of Logical Sector 0: Tnis 

allows for a variety of logical sector mappings on tne disi 
itself. In tnis system nowever, tnis value is currently 2 
and tnis snould be tne response used. 

b. Sector SKew Factor: Tnis enables tne sector 

address to be pnysically sicewed on tne :isi. Currently, tne 
CP/M operating imposes its own sue* factor and tnis value is 
also set to 0. 

c. Location of tne Spare: Tne Micropolis nas a 

sector sparing capability. If a bad sector is found during 

initialization, tne spare can oe written in tne bad sectors 

place. Until a bad sector is noted, tnis value is 24. Tnis 
will write tne spare sector at tne end of tne trac.i (sectors 
0-23 are tne only ones accessible by CP/M). 

d. DisK Head Number: Respond witn tne desired 

nead number from tne list given above. 

e. Starting Traci: Tne "icropolis nas 5Stf total 

tracxs per bead, numbered from 2 to 579. Snter tne desired 
starting tracfc number. 

f. Snding Traci: Snter tne desired ending- traci 

number. Tne selected command will be executed on all traces 



Detween tne starting number and ending number. Tne format 
commands only require tne last four entries from tne list 
above wit ft tne same conditions. All format or initialize 
commands snould be followed witn tne corresponding verify 
format /verify initialization command. Tnese require tne 
same entries as for tne original command and ensure tnat tne 
list function selected nas been properly carried out. 
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APPENDIX B 



PROGRAM LISTING- CF M I CMAI NT . A66 



Program Name 
Date 

Written by 
For 

Adviso r 
Purpose 



MICMAINT.A96 
9 April 1983 
Marx L. Perry 

Tnesis (AEGIS Modeling Group) 

Professor Cotton 

Tnis routine enables tne initialization 
am formatting functions to d? carried out 
for tne ^icropolis Disx. It is completely 
menu-driven and explanatory ir. nature. 






EQUATES TABLE 



cseer 

org 100n 



MISCELLANEOUS ECUATES 



cr 


equ 


0dn 




If 


equ 


0an 




wip 


equ 


lan 




be 


equ 


7 




i 

» 


EQUATES 


FOR 825b PIO 




porte 


equ 


0cen 


; command port 


porta 


equ 


0c8n 


; bi-ii rec t ional 


port b 


equ 


0caa 


Joutput port 


porte 


equ 


0c cn 


; c on tr ol/s ta tus 


mode_2_0_out 


equ 


0c0n 


Jmoae for 8255 


i 


BDOS FUNCTION EQUATES 




» 

DlOS 


equ 


224 


; bdos in terrup t 


bios _0 


equ 


0 


; re t to ~ cp 


bdos_l 


equ 


1 


i cnar input 


bdos_9 


equ 


9 


jDdos string output 


bdos_10 


equ 


10 


; bdos buffer input 


» 


MI CROPOLIS EQUATES 




f 

rs trb_on 


equ 


00001010b 


>'read signal 


rs trb_o ff 


equ 


00000010b 


>'read signal off 


ws t rb_on 


equ 


00000110b 


; -write signal 
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ws t rb_o f f 


eau 


000000 10 D 


J write signal off 


mic_s ta t 


equ 


00000000b 


Jstatus signal 


mic_cmd 


equ 


000000000 


; command signal 


mic_dat a 


equ 


00000001b 


Jdata signal 


s tro_on 


equ 


00000010b 


input la ten signal 


st rb_of f 


equ 


00000011b 


iaten signal off 


acfc_on 


equ 


00000100b 


Joutput signal 


acK_of f 


equ 


000001 01 D 


Joutput signal off 


en_sel 


equ 


00000010b 


J select enable 


s tndrd 


equ 


000101 10 D 


J normal reset 


irdy_mast 


eau 


0000000 1 D 


Jinput ready 


ordy_mas& 


equ 


00000010D 


Joutput ready 


Dusy“masK 


eau 


00010000 D 


J busy 


masx” 


equ 


10100000b 


jattn cr areq 


a t tn jnasK: 


equ 


10000000b 


Jattn only 


dreq_masic 


equ 


001000000 


Jdreq only 


iri tial_cmd 


equ 


11010001b 


initialize cmd 


veri fy_cmd 


equ 


11010101b 


Jverify cmd 


ini t_ve r_cmd 


equ 


11011001b 


Jinitialize and 
Jverify cmd 


forma t_cmd 


equ 


01000111b 


Jformatting cmd 


ver_f orm_cmd 


equ 


01000011b 


Jverify tne format 



t 



“^ain Program 



main : 



main 1: 



main 2: 
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end : 



call mic_init 

mov cl,bdos_9 

mov dx, offset menu_l 

int bdos 

mov cl,bdos_l 

int bdos 

mov an,0n 

cmp a i , '0 ' 

jo main_l 

cmp a i t '6 ' 

jbe nain_2 

mov cl,bdos_9 

mov dx, offset err_i 

int odos 

jmp main 

sub al,30n 

mov cmd_type,al 

add ai,ai 

mov dx, offset jmp_tabi 
add Dx,ax 
mov cx , [ DxJ 
jmp cx 

mov cl,tdos_9 

mov dx, offset end_msg 



initialize di s& 

; output first menu 



Jeet user option 
J clear an 
J valid entry? 



Joutput error ms? 



J and start over 
; adjust to binary 
Jstore command 
Jadj for tbl entry 
ljget jump vector 



103 



Jand jump to loc 

fend of session 
Jmsg 



descr : 



descr 1: 



in ver dsic: 



I’m ver as k : 



f m_ver_ds£_l : 
main ?: 



ini Ddos 
sli 

mov cl,daos_0 
mov dl,00n 
ini odos 

mov a 1 1 0 

mov Dx, off set jmp_tabl 
mov dx , [bxj 
mov cl,Ddos_9 
pusn ax 
pusn ox 
int bdos 
mov ci,Ddos_l 
int Ddos 
pop Dx 
pop ax 
i n c a i 
cmp a 1,7 
je main 
add bx,02 
jmp descr_l 

call 1 O£_sec0_nur 
call s£w_num 
call spar_ioc 

call nead_num 
mov c 1 , Ddos _9 
mov dx, offset mS 2 _h 
int Ddos 
call tr£_num 
mov oeg__t rs_num , dx 
mov cl , Ddos_9 
mov dx, offset ms^_6 
int Ddos 
call trfc_num 
cmp dx, De£_trK_num 
jae f m_ver_ds £_1 
xcng ix , Deg_t ric_num 
mov end_t r£_num ,dx 

mov cl,Ddos_9 
mov dx, offset menu_2 
int Ddos 
mov cl,bdos_l 
int Ddos 
mov an,00n 
cmp al , '0 ' 
jb mainj 
cmp ai , '4 ' 



; re-enable int 
,* re turn to ccp 



Jinitialize count 
out put description 



Jsave tne registers 



Jwait on user 

jrestore tne ress 

;test for end of 
Jdeseription 
; if end start over 
;else get next msg 
;and output it 

;^et logical sec 0 
Jget sKew factor 
Jget lcc of spare 

;get dis& nead num 
; output prompt 
>for oe^innin? 
;trac:< number 
; ?e t it 
>* s t o re it 
; output prompt 
Jfor ending 
?tracK number 
Jget it 



Joutput second menu 



Jget user option 

Jclear an 
; valid entry? 
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main_4 : 
main__5: 

re v_en t 
c ng_ent 
e cmmd : 



e_cmmd 

e_cmmd 

e_cmmd 

e_cmmd 

e cmmd 



jbe main_5 

mov cl,bdos_9 

mov dx, offset err_l 

i n t bios 

jmp main_3 

sub a l , 30ti 

add a 1 ,al 

mov bx, off set jmp_tabl 
add bx.ax 
mov cx , l bxj 
jmp cx 

call rev 
jmp main_3 

call cdg 
jmp main_3 

mov cl,bdos_9 

mov dx .offset warn 

int bios 

mov c 1 ♦ bdos _1 

1 n t bdos 

cmp a 1 , ' y ' 

jz e_c mmd^l 

cmp al f / (" r 

jz e_cmmd_l 

jmp main 

l: cmp cmd_type,2 

ja e_cmmd_2 
call rric_convi 
jmp e_cmmd_3 

2: call mic__conv2 

mov cl,bdos_9 
mov dx, offset msg__B 
int bdos 

2a: call mic_send 

2b: call mic_status 

test al.masK 
jz e_cmmd - 2b 
test al ,a ttn__mas£ 
jnz e_cmmd__2c 
mov al,0e5n 
call mic__da ta_out 
jmp e_cmmd_2b 

2c: call mic_busy 

call mic_irly 
call mic__data_in 
cmp al,0£n 
jnz cmmd_err 
inc bee trt num 



Joutput error msg 



?and start again 
» ad jus t to binary 
Jadj for tbl entry 
3;get jump vector 



; output tne review 
Jsecond menu again 

Jeet tne cnange 
; second menu again 

Joutput warning* 



Jeet response 



jstart over 
Jcnect for command 

Jprepare parameters 



Joutput message 



;send parameters 
Jattn or creq? 



; a 1 1 n? 

Jmust be dreq 
Jsend E5n 

»vait on cntrl 

]se t term byte 
»* success? 

;no, tnen error 
>any tracts left? 
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mov dx , ceg_tr£_num 
cmp dx ,end_t r<_num 
ja e_cmml_3b 


; finis tied Here 
Jso start over 




mov parm2 f dl 
mov parm3»dft 
jmp e_cmmd_2a 


Jadjust parms 


e_cmmd_3: 


mov cl f bdos_9 

mov dx, offset mss_ltf 

int bdos 


; output message 


e_cmmd_3a : 


call mic_send 


Jsend first parms 




call mic_busv 
call mic_irdy 


; wai t for cntrl 




call mic_data_in 


>eet term status 




cmp a l f 0 


; successful? 




jnz cmmd_err 


; now error 




inc bee , _t ric_num 


?more tracKS? 




mov dx , beg_tr£_num 






cmp dx ,end_trk_num 
ja e_cmmd_3b 
mov parm2,dl 


;anjust parm2 




mov parm3,dn 
jmp e_cmmd_3a 


; a nd parm3 


e_cmmd_3 b : 


mov ci,bdos_9 


^output success 




mov dx,offset msg_ll 


;message 




int bdos 
jmp main 


;and start over 


cmmd_err : 


mov err_code,al 


Jsave error 




call proc_err 


^process it 




jmp main 


istarx over 


• *3**3* *C5?3** JftSJCJJCJJC ^JJC^C35C3!Cait3JC^t3^^^3je^^^^^^e^jp3^5^^^JiS 


; Subroutine: 


proc_err 




jEntry conditions: an error nas occurr 


ed in tne execution 


t 


of a command on tne 


dl 5K 


JExit conditions: proc_e rr_ta cl nas 


oeen updated 


jRepisters altered: none 




Subroutines 


called: save,restor, bin_dec ,dec asc.nic ousy. 


i 


mic_irdy , mic_da t a 


_i n 


; Description : 






> 


Tnis routine provides 


as console output 


; tne details 


of an error condition as 


issued py tne 


;diSK controller. 
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prcc_err: 


call save 


;save all registers 




mov bi,0 


; set up coun ter 


proc_er r_l : 


call mic_Dusy 
call mic_irdy 


;vait on cntrl 




call mic_data_in 
inc di 


>ge t aux status 




cmp bl,b 


; i s it 6tn one? 
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proc_err_2 : 



je proc_err_2 
j mp proc_err_l 
mov di f al 
mov dn,00n 
call bin_dec 
call decease 
mov asc_sec,dl 
mov a sc_sec_l , bn 
mov asc_sec_2 , bl 
mov dl,nead~ 
mov dn,00n 



Jput sector in 11 
Jclear in 
Jconvert it 

; store it 



Jget nead number 
Jclear in 



call Din_lec 
call dec_asc 
mov asc_dx_nead ,dl 
mov asc_d£_nead_l , tn 
mov asc_dK_Head_2 , bl 
mov dx , De**t r£_num 
call oinjiec 
call decease 
mov asc_trK,ll 
mov as c_t r£_l , bn 
mov asc_trx_2 , bl 
mov dl,err_code 



Jconvert it 
J store it 

Jsret tracK number 
; convert it 

; store it 
Jset error code 



mov dn,00n 
call bin_dec 
call iec_asc 
mov asc_err_c,dl 
mov a sc_e rr_c_l t tn 
mov as c”err_c_2 , bl 



Jclear dn 
Jconvert it 

Jstore it 



mov cl,bdos_9 Joutput cmd 

mev dx.offset procerrtabi 
int bdos 



type 



mov 

mov 

add 

mov 

add 

mov 

mov 

int 

mov 

mov 

int 

mov 

int 

call 

ret 



an f ee-n 


Jclear an 


a 1 ,cmd_type 


al ,al 


Jadjust for table 


bx , of fset 


jmp_t a di_ 4 Jget jump vector 


bx ,ax 
dx , t bxj 
c 1 , bdos_9 


J o u t pu t it 


bdos 

c 1 1 b d o s _9 


Jrest of table 


dx .offset 


pro cerrta bil 


bdos 

c 1 , bdos_l 


Jwait on user 


bdos 


Jto read it 


res tor 


Jrestore registers 



^Subroutine: mi c_ busy 
JEntry conditions: none 

JExit conditions: disfc controller nas issued 'not busy' 
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signal 

Registers altered: none 
Subroutines called: mic_status 
Description : 

Tne executing program will wait nere 
until tne dis£ controller issues tne 'not busy' signal. 



mic_busy : 

pusn ax 

mic_busy_l: call mic_status 

test a 1 , busy_masK 
jz mi c_busy_l 
pop ax 
ret 



Jsave ax 
J^et status 
J busy? 



Sj: 3^ J}t sp 3JC 3? J? 5JC 3}t 3P SP sp M 9^ 5? S? sp 5? V i? S? W ij: »r V s? 5? S? 3(S 5? 3n V V W ^ W 

Subroutine: mic_irdy 

Entry conditions: none 

Exit conditions: disfc controller nas issued 'irdy' 
sisrna 1 

Registers altered: none 
Subroutines called: mic_status 
Description : 

Tne execution of tne program will 
wait nere until 'irdy' is issued by tne controller. 



mic_irdy : 

pusn ax 

mic_irdy_l: call mic_status 

test ai t irdy__masK 
jz mic_irdy_l 
pop ax 
ret 



Jsave ax 
J^et status 
j ready? 

J restore ax 
J ready now 



JSubroutine: mic_orly 
J Entry conditions: none 

JExit conditions: disK controller nas issued tne 'orny' 

♦ signal 

•^Registers altered: none 

JSubroutines called: mic_status 

JDesc ri pti on : 

J Tne execution of tne program will wait 

jnere until 'ordy' is issued by tne controller. 



mic_ordy : 
mic_ordy_l : 



pusn ax 

call mic__status 
test a l , ordy_ma s& 
jz mic_ordy_l 
pop ax” 
re t 



Jsave ax 
J?et status 
J ready? 

Jnot yet 






V V v ?P V WWPV 
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Subrou tine: mic_send 

JEntry conditions: parameters are calculated and in 
; tne byte variables 

;Exit conditions: parameters and command nave been sent 
Registers altered: none 

Subroutines called: save ,restor,mic_cusy,mic_ordy , 

; mic_i rdy ,mic_cmd_ou t , mi c_da tagout 

JDescripti on : 



? Tne command byte, six parameter bytes 

;and tne go byte found in tne data area are sent to 
Jtne disfc: controller. 



mic send: 



mic send l: 



call save 

call mic_Dusy 

call mic_oriy 

call mic_cml_out 

mov ox, offset parml 

mo v d 1 , V 

call mic_busy 

call mic_orly 

mov a 1 , [ bxj 

call mic_iata_out 

inc bx 

inc d 1 

cmp 11,7 

j b mi c_send_l 

call restor 

re t 



Save registers 
Wait for cntrl 

Sene out cmd 
; send parameters 
i count er 
Wait for cntn 

;get parm 
Send it 



; d one ? 

Jrestore registers 



Subroutine: mic_cmd_out 

jEntry conditions: 'ordy' signal nas been issued by tne 
; disic controller and 'cmd_byte' 

; contains tne command to be sent. 

JExit conditions: none 
Registers altered: none 
Subroutines called: none 
; Description : 

; Tne command in tne byte variable 'cmd_byte' 

» is sent to tne dis’-c controller. 



mic_cmd_out: 

pus n ax 

mov al,cmd_byte 
out porta, al 
mcv al,mic_cmd 
out porte, al 
mov ai,ac£_on 
out porte, al 
mov al,wstrb_on 
out portb,al 



Jsave ax 

So bi-directional 
; enable cmd line 

Jactivate output 
; buf f e r 

; pulse tne write 
; strobe 



mov al,wstrb_off 
out portb,al 

mov al,aclr_off ;de-acti va te tne 

out porte, al Joutput buffer 

pop ax 
re t 

Subroutine: mi c_data_in 

Entry conditions: 'irdy' signal nas oeen issued by tne 
disK controller 

Exit conditions: al contains data byte 
Registers altered: al 
Subroutines called: none 
Description : 

A byte of data is input from tne Picropolis 

disK unit. 



mic_iata_in: 

mov al,mic_lata 
out porte, ai 
mov ai,rstrb_on 
out portb,al 
mov al , s t r c_on 
out porte, ai 
mov al,strb_off 
out porte, al 
mov al,rstrb_off 
out portb,al 
in al ,po rta 
re t 



tenable tne data 

; turn tne read 
;on 

»’latcn tne data 



;turn off tne 
Jread signal 
; bring in data 



Subroutine: mic_data_out 

»Entry conditions: 'orly' signal nas oeen issued by tne 
; disit controller and al contains value 

? to be sent. 



>Exit conditions: none 
^Registers altered: none 
Subroutines called: none 
description : 

; A byte of data is output to tne yicropolis 

Jdis It unit . 



mic data out: 



pusn 


. ax 


Isave ax 


out 


porta ,al 


; to oi-di re** tional 


mov 

out 


a 1 ,mic_dat a 
porte ,a 1 


Jenacle data line 


mov 


a 1 ,ac£_on 


Jactivate output 


out 


porte ,al 


»* buffer 


mov 


ai ,wstrb_on 


; pulse tne write 


out 


portb ,al 


Jstrote 



mov a l , ws tr b_o ff 
out portb f al 

mov ai,acK_off jde-ac t iva te 

cut porte,al Joutput Duffer 

pop ax J restore value 

ret 

Subroutine: mic_convl 
J Entry conditions: none 

;5xit conditions: parameters are set for dis£ use 
jRe^isters altered: none 
Subroutines called: save,restor 
; Descri pti on : 

; This subroutine prepares tne parameters 

Jrequired by tne Micropolis disK drive for verify or 
initialization commands. 



mic_con vl : 


call save 


Jsave the register 




mov al,cmd__type 


Jcnecn: for command 




cmp a l f 0 


ini tiali ze? 




jz mic_convl_l 
cmp a 1 , 1 


Jverify? 



jz mic_convl_2 

mov cmd_oyt e , ini t_ver_cmd initialize 









j^P 


mic_convl_3 


Jam verify 


mic 


_con vl 


_1 : 


mov 


cmd_byte t initiai_cmd 


it * a s initialize 








Jmp 


mic_con vl_3 


» only 


mic 


_con vl 


_2: 


mov 


cmd_byt e , verif y_cmd 


it was verify 


mic 


_convl 


3: 


mov 


a 1 ,nead 


; prepare head rum 








mov 


c 1 ,4 








sa 1 


a 1 ,c 1 










mov 


parml »al 










mov 


dx f bes^t r&_num 


Jset up parameter 








mov 


parn2 ,d 1 


; 2 a nd 3 








mov 


pa rm3 ,ih 










mov 


al f log_sec0 


Jset ud oarameter 








mov 


pa rm4 ,a 1 


J 4 








mov 


al # SKw_ra c 


Jset up oa ra me ter 








mov 


parmb ,ai 


Jb 








mov 


al spar 


Jset up parameter 








mov 


pa rmb ,a 1 


J6 








mov 


g o b y t e , 0 


jset up go byte 








call restor 


Jrestcre registers 




sar n sr « vr 


y* nr nr y* yrt 


re t 

' Vf *r* W T 







; jje^c jjcjjcsj; jps^^capjp^sajt^c ^sa^sjc spsjss? j,xj?^cs??,c 



Subroutine: mic_conv2 
JEntry conditions: none 

JExit conditions: parameters are set for dis& 
JResristers altered*: none 
Subroutines called: save,restor 
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jDescripti on : 

; This subroutine prepares tne parameters for 

;tne M icropolis ctisff drive for format and verify format 



; commands . 








mic 


_ccn v2 : 












call 


. save 


Jsave tne re^s 






mo v 


ai ,cmd_type 








cmp 


a 1 ,3 


»f orma t? 






jz mic conv2 1 








nov 


cmd_byt e , ver_f o rm 


_cmdjmust be verify 






J«P 


mic_conv2_2 




mic. 


_c on v2_l : 


mov 


cmd_oyt e , f o rma t_c 


md 


mi c^ 


~con v2_2 : 


mo v 


a 1 ,nead 


>set parameter 1 






mov 


cl ,4 


5 adjust position 






sal 


al ,cl 








mov 


parml ,al 








mov 


dx , beg_tr£_num 


; se t parameter 1 






mov 


parm2 , il 


; a nd 2 






mov 


parm3 ,dn 








mov 


parm4 ,0 


Starting sector 






mov 


parmb ,24 


Jprocess 24 






mov 


parmb ,0 


Jnot used 






mov 


go_byte ,0 








call 

ret 


res tor 


^restore registers 



Subroutine: mic_init 
jEntry conditions: none 

JExit conditions: dis£ nas been initialized 
jRegisters altered: ax,cx 
Subroutines called: mic_status 
description : 

; Tnis subroutine resets end initializes tne 

dicropolis disfc drive and tne 82 55 parallel i/o port. 

»If tne reset attempt fails, tne program is aborted and 
Jtne user is returned to tne operating system. 



mic 


_ini t : 


cli 




Jdisatie mas£abie 










; i nterrup ts 






mov 


a 1 ,mode_2__0__ou t 


initialize to mo 






out 


porte ,al 


J0 and 2 






mov 


a 1 ,ac£_of f 


insure acicnowlei 






out 


porte ,al 


is off 






mov 


a i f strb_o f f 


insure strobe 






out 


porte ,a 1 


is off 






mov 


al ,en_sel 


Jset select and 






out 


port b ,al 


Jena ole 






mov 


c x ,10 


Jwait 1 second 


mic 


_ini t_l : 


mov 


ax, 27777 
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mic_init_2: dec ax 

jnz rnic_init_2 
dec cx 

jnz mic_init_l 

call mic status feet tne status 



cmp a l ,stndrd 

jz mic_init_3 ftnen return 

mov cl,bdos_9 ;output error 

mov lx, offset micrst_err fmessaee 
int Ddos 

mov cl ,00 ;and return to 

mov 11,00 fo/s 

int Dios 

mic_init_3: ret 



Subroutine: mic_status 
fEntry Conditions: none 



fExit Conditions: al contains status of lisie 
JReeisters altered: ai 
Subroutines called: none 



fDescri pti on : 

; * Tnis subroutine reads and returns tne current 

fvalue of tne Micropoiis aiss controller's status port. 



mic_s ta tus : 

mov ai,nic_stat 
cut porte,ai 
mov al,rstrb_on 
out portfc,al 
mov ai,stro_on 
out porte.al 
mov al t strb_off 
out pcrte,al 
mov al,rstrb_off 
out portb,al 
in al , porta 
ret 



fenabie stat line 
;turn on read 
> la tea tne status 

; turn off read 
; brine in status 



Subroutine: cne 
♦’Entry conditions: none 

♦ Exit conditions: desired value is clanged to new value 
’♦Registers altered: none 

♦ Subroutines called: save ,resto r , 1 og_sec0_num, sicw_num , 

; spar_ioc , neaci_num , tric_num 

♦ Description : 

♦ Tnis subroutine allows tne user to cnange 
;a value tnat nas been previously specified by a call to 
♦tne appropriate routine. 

♦ 

eng: 



call save 



Save registers 
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Che 



Cdg 

Cflff 

c n* 



eng. 

eng. 

eng. 

eng. 

eng. 

cn* 

eng. 



1 : 



2 : 



4: 



bs 



6: 



7*. 

9 s 
9: 
.10: 
11: 



emp cmd_type f 2 

Ja eng _4 

mov c 1 , Dd os _9 

mov dx, offset menu_3 

int bdos 

mov cl* bdos_l 

lnt bdos 

mov an,0n 

emp a 1 , ' 0 ' 

jo cng_2 , 

emp a l , '5 

j be c ne_3 

mov cl,bdos_9 

mov dx,offset err_l 

lnt bdos 

Jmp cng_l 

sub a 1 

add al,al 

mov bx,offset jmp_tabl 
add bx t ax 
mov ex t [bxj 
jmp ex 

mov c 1 , D d o s _9 

mov dx t offset menu_4 

int bdos 

mov c 1 , bdos_l 

int bdos 

mov an t 0n, 

emp a 1 1 '0 ' 

jb cng_5 

emp al , ' 2 ' 

jbe cne_S 

mov ci,bdos_9 

mov dx, offset err_l 

int bdos 

jmp cng_4 

sud a 1,30a 

add a 1 ,a 1 

mov bx t offset jmp_tabl 
add ox, ax 
mov ex ♦ [ bxj 
jmp ex 

call log_see0_num 
jmp cnf?_l3 
call s£w_num 
jmp cng_l3 
call spar_loc 
jmp cng_13 
call .nead_num 
jmp cng_13 
mov cl,bdos_9 



,* two diff opts 
^depending on end 
Joutput menu 



;?et user option 

;clear an 
Jvalid entry? 



; out put error 



;and start over 
Jeonvert to binary 
^adjust for table 
5»get jump vector 



Joutput menu 



»?9t option 

; c 1 e a r an 
» valid entry? 



Joutput error 



^convert to binary 
Jadjust for table 
6Jge t jump vector 



»get new logical 
^sector number 
>get new site w 
; far to r 

;get new spare 
; l ocat ion 
;?et new nead 
; num ber 

»get new beginning 
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cfi£r_lla : 
cng_12: 



mov di, offset JtracK number 

int bios 

call tr£_num 

cmp lx ,end_t rK_num 

j be cng_lla 

xcng lx , enl_tr £_num 

mov oe?_trx_num ,dx 

jmp cng_13 

mo.v cl,bcios_9 ; ge t new ending 

mov lx, offset ms£_S JtracK numDer 

int bios 



call trit_num 
cmp lx , Des_t r*_num 
jae cng_12a 
xcng lx , beg_t r£_num 
cnsr_12a: mov end_t r£_num , lx 

cng_l3: call restor Jrestore registers 

ret 

Subroutine: rev 
, # Entry conditions: none 
>'Exit conditions: none 
Registers altered: none 

Subroutines called: save , res tor, bin_lec , decease 
Rescript ion : 

; Tnis subroutine prints out at tne console a 

,’complete tabulation of user supplied input and 
Jreturns to tne calling program. 



re v : 



call save 

mov ln,00n 

mov li, 1 O 2 _sec 0 

call Din_lec 

call iec_asc 

mov as c_l og_se c0 , 11 

mov a$c_log_sec0_l , on 

mov asc_log_sec0_2 , bl 

mov in,00n 

mov li,s£w_fac 

call bin_lec 

call lec_asc 

mov a sc_s icw^fac , dl 

mov asc_sitw_f ac_l , dq 

mov asc_s *cw_rac_2 , bl 

mov ln,00n 

mov 11, spar 

call bin_lec 

call dec_asc 

mev asc_spar,ii 

mov asc_spar_l , bn 



Save all regs 
; convert logical 
Sector to asc 



; s t o re it 



Jconvert s£ew 
Jfactor to asc 



Store it 



Sonvert location 
Jof spare to asc 



Jstore it 
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re v_l : 
rev 2 : 



mov as c_spar_2 , bl 

mcv dn,00n 

mov di,nead 

call bin_aec 

call dec_asc 

mov asc_neai,dl 

mov asc_neaa_l , bti 

mov asc_.dead_2 f Dl 

mov dx , beg_t r£_num 

call bin_lec 

call dec_asc 

mov asc_De£_trx , dl 

mov asc_beg_tr£_l t do 

mcv asc_beg_t tk _ 2 , bl 

mov dx ,end_trK_num 

call bin_dec 

call decease 

mov asc_enl__tr£, dl 

mov asc__eni~trx_l , bn 

mov asc_end~t rx_2 t bl 

mov cl,bdos_9 

mov dx, offset rev__tabl 

int bdos 

mov an,0 

mov al,cmd_type 

add a 1 ,a 1 

mov bx, offset jmp__tati 

add bx,ax 

mov lx, [ bxj 

mov cl,bdos_9 

int bdos 

mov c 1 , b d o s _9 

emp cmd_type,2 

j a re v_l 

mov dx, offset rev_tabl 
int c d o s 
jmp r e v_2 

mov dx, off set rev_taci 

int bdos 

mov cl,bdos_l 

int bdos 

call restor 

ret 



Jconvert dis£ 
;nead to asc 



; s to re it 



^convert beginning 
Jtrlc to asc 

Jstore it 



Jconvert ending 
Jtrk: to asc 

Jstcre it 



,’output command 
; type 

;clear an 

Jadjust for table 
Ajge t jump vector 



»' out put command 
; name 

; out put tne 
Jentire table now 



;wait on user to 
; read it 

;restcre registers 



• 3?c are ajcajc sqc a***:* jjssjcj*;?: 5*** * jjs j* *: :? sje a* * a* a* s* :p jp a* j* ?? sjc ap :p ap :p ap ap 



JSubroutine: spar_loc 
JEntry conditions: none 

JExit conditions: 'spar' contains value for location 
» of spare sector 

JResisters altered: none 

^Subroutines called: save, restor, con_in,asc_dec ,dec_cin 
JDescri pti on : 
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; The user is prompted for the location of the spare 

jsector. Tne valid range is 0 to 255. A number outside 
;of this range results in an error message and another 
;prompt. Tne valid number is converted to binary ana 
jstorea in tne byte variable 'spar'. 



spar_lo c: 
spar_lo c_l : 



spar_loc_2 : 



call save 

mov cl,bdos_9 

nov dx, offset msg_7 

int bdos 

call con_in 

call asc_dec 

call dec_bin 

cmp dx,255 

j be spar_loc_2 

mov c’l,bdos_9 

mov dx, offset err_2 

int bios 

jmp spar_loc_l 

mov spar,dl 

call restor 

re t 



Jsave all registers 
^output prompt 

; ge t response 
» convert it 

felt for range 

; out pu t error msg 



; start over 
Jstore in 'spar' 
Jrestore registers 



^Subroutine: tr£_num 
;Entry conditions: none 

»*Exit conditions: dx contains a tracK number 
Registers altered: dx 

JSubroutines called: save , restor, con_in t asc_iec ,aec_Din 
JDescri pti on ? 

} The user is prompted for a tracK number. Tne 

Ivalid range is 0 to 579. Invalid input results in an 
jerror message and another prompt. Tne valid number 
; i s converted to binary and returned in lx. 



t r£_num : 
tr£ num 1: 



trx num 2: 



call save 

mov cl,bdos_9 

mov dx, offset msg_4 

int bdos 

call con_in 

call asc_iec 

call dec_bin 

cmp dx,579 

jte tr£_num_2 

mov cl,bdos_9 

mov dx, offset err_2 

int bdos 

jmp trtc_num_l 

mov temp_t£,dx 

call restor 



Jsave all regs 
^output prompt 

tse t response 
; convert it 

;ck for range 

; output error msg 



Jstart over 
Jsave trx number 
Jrestore tne regs 
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J res to re ax 



mov dx , t emp_t£ 
re t 

* Jjs * j* JJC * * 9 * 39c * * a* * * V * * * * * * W >iC a* tp jgsjgs jjc * j* v s? s? * V J* V 3 ? * V* »* * V * * J? V * * * * V * 

Subroutine: s£v_num 
Entry conditions: none 

Exit conditions: 'sfcw_fac' contains sector sitew 
factor 

Registers altered: none 

Subroutines called: save , res tor, con_in , asc_dec ,dec_bin 
Description : 

Tne user is prompted for a sector ssew factor. 

Tne valid range is 0 to 23. A number outside cf tnis 
ranse results in an error message and anotner prompt. 

Tne valid number is converted to binary and stored in 
tne byte variable 'sKw_fac'. 



s£v_num : 
skw num 



call save 


Jsave all regs 


mov c 1 , bdos _9 
mov dx, off set msg_3 
int bdos 


Joutput prompt 


call con_in 


Jset response 


call asc_aec 
call dec_bin 


J convert it 


emp dx,23 
jbe sn:v_num_2 


Jc£ for ran,?e 


mov c 1 , bdos_9 
mov dx, offset err__2 
int bdos 


j output error msg 


jmp sxw_num_l 


Jstart over 


mov sK - w_fac,dl 


Jstore in 'sicw_fac 


call restor 
ret 


J res tore tne regs 



slew num 2: 



! s* *s j* W 3* s? * J? 5* *i« * >*;***:*:!£* **3?^ 3* 3*5? 



^Subroutine: lo?_sec0_num 
JEntry conditions: none 

jExit conditions: 'log_sec0' contains address of logical 
; sector 0 

JRegisters altered: none 

Subroutines called: save , res tor , con_in ,asc_dec ,dec_bin 
JDescri pti on : 

; Tne user is prompted to input tne pnysicai address 

Jof logical sector 0. Tnis number can be in tne range 0 to 
J23. Tne input is cnecKei and an error message results if 
Jit is invalid. Tne user is also prompted again in tnis 
Jevent. Tne valid number is converted to binary and stored 
Jin tne byte variable 'log_sec0' 



log_sec0_num : 

call save 

log_sec0_num_l : mov cl,bdos_9 



Jsave all re^s 
Joutput prompt 



US 



mov dx, offset msg_2 

int bdos 

call con_in 

call asc_dec 

call dec_bin 

cmp dx ,23 

jbe 1 og_sec0_num_2 
mov cl,bdos_9 
mov dx, offset err_2 
int bios 

jmp log_sec0_num_l 
log_sec0_nun_2: mov log_sec0,dl 
call restor 
ret 



?get response 
; convert it 

?ck for range 

^output error msg 



; s t in 'lcg_sec0' 
^restore rees 



Subroutine: nead_num 
;Entry conditions: none 

;Exit conditions: 'nead' contains nead number 
?Res*isters Altered: none 

Subroutines called: con_in, asc_dec, dec_bin, save, restor 
description: 

JTne user is prompted tc input a dead number in tne ran.se 
?of 0 to 4. Tne input is cnecfced ,if an invalid number is 
Jentered, an error message is output and tne user is again 
?prompted for an entry. Tne valid number is converted to 
Jbinary and stored in tne byte variable 'dead'. 



nead_num : 


call save 


Jsave all regs 


nead_num_l : 


mov cl,bdos_9 


Joutput prompt 




mov dx, offset msg_l 
int Ddos 
call con_in 


; ere t response 




call asc_dec 


^convert to decimal 




call dec_bin 


Jconvert to binary 




cmp dx,0004n 


; c necK: for range 




jbe nead_num_2 
mov cl,odos_9 


Joutput error mss* 




mov dx, offset err_2 

int odos 

jmp nead_num_I 


;and start ever 


nead_num_2 : 


mov nead,dl 


Jstore in 'neac.' 




call restor 


^restore registers 




ret 





J)C >JC * SJC JjC *C *C * *C J* 3? Jf. JJS *C JJ£ if JJC J* 3f Jjt 3* JJC J* ip * 3JC 3JC JJt 3f 3J£ *S jp JJC 3JC jp jp jp jp 3p Jp SJt 3? *£ * Jp Jp if 9QC Sp Jp Jp pt jp ip jp 



Subroutine: con_in 
Entry conditions: none 

Exit conditions: dx contains most significant ASCII 
dibits entered 

bx contains least significant ASCII 
digits entered 
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;Re?isters altered: dx,ox 
^Subroutines called: save.restor 
; Deescrip t i on : 

; EDOS function 10 is utilized to input 

;a line of edited data from tne console. Sactcspacing 
; is permitted through tte use of Control-K or Ccntroi-X. 
JOnly a maximum of 3 characters can be entered. To 
;alter this, the value of 'buffer' must be changed. For 
>a complete description of BDOS function 10, see pa<?e 29 
Jin "CP/M-86 Operating System System Guide” by Digital 
^Research. Two error conditions are reported: ( 1 } if 
Jno lata has been entered and (2) if the data entered 
;is non-numeri cal . In eacn case tne user is prompted 
Jfor data a^ain. 





call save 


jsave all re^s 


con_in_l : 


mov cl, bdos_10 


Jbdos console in 




nov dx , offset buffer 


Jinput buffer 




mov buffer, 3 
int bdos 


Jmax char count 




cmp num_cnars,0 
jne con_in_3 


Jet for no cnars 


con_in_2 : 


mov ci,bdos_9 


; console output 




mov lx, offset err_in 
int bdos 
jmp con_in_l 


Jloc of err ms^ 


con_in_3: 


mov dl ,num_cha rs 


JchecK each cnar 




mov bx, offset asc_data_ 


1 Centered for 


con_in_4: 


mov a 1 , [bxj 
cmp a 1 , ' 0 ' 
j b con_in 2 
cmp a 1 , 'y -7 
ja con_in_2 


Jvalid asc number 




inc ox 


Jge t next number 




dec d 1 
jz con_injo 
jmp con_i n_4 


Jtest for last num 


con_in_5: 


mov d x , 0 
nov bx,e 


Jinitialize result 




cmp num_cnars,l 
jne con_in_b 
mov bl ,asc_la ta_l 
jmp con_in_B 


Jck for 1 cnar 


con_in_6: 


cmp num_cnars,2 
jne con_in_7 
mov bh ,asc_la ta_i 
mov ol ,asc_la ta_2 
jmp con_in_S 


;cx for 2 cnars 


con_in_7: 


me v d 1 ,asc_la ta_i 
mov bh , as c_da t a_2 


Jmust be 3 cnars 
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;save result 



mov Dl , as c_da t a_3 
con_ln_^ : mov ms_data,dx 

mov lsjiata,bx 
call restor 
mov ax,ms_data Jplace in ax 

mov bx,ls_data Jana bx 

re t 

JSubroutine: asc_dec 

;Entry condi tions:dx contains ASCII representation of most 
; significant 2 digits of 4 digit number 

; bx contains ASCII representation of least 

; significant 2 digits of 4 digit number 

;Exi t conditions: dx contains 4 iieit BCD equivalent or lx 
; and bx 

?Ree*isters altered: dx 
Subroutines called: none 
;Descri pti on : 

; Upon entry to tnis subroutine dx and bx must 

Jcontain tne ASCII representation of a 4 disit number. 

;Even if tne digit to be converted is not 4 digits, tnese 
Jresisters are converted and tnerefore tne number must be 
;rignt justified vitn zero fill. 



asc dec : 



as c dec 1 : 



asc dec 2: 



pusn ax 


?save resisters 


pusn cx 




pusn bp 




pusn si 




mov si # 000fn 


; i ni t ia li ze ma sit 


mov bp,01n 


Jinitialize bp 


mov a 1 , d 1 


;get first cnar 


and ax ,s i 




mov c 1 ,a 1 


;save result 


mov a l , d n 


;get second cnar 


and ax, si 




mov cfi.al 


Jsave result 


mov ax,0 


Jclear ax 


mov a 1 , c 1 




mov cl, 4 




sal cn f cl 


i sni ft 


add al,cn 


Jresult in al 


mov ix,ax 


y place in dx 


cmp bp,00n 


; cnecx for end 


jz asc_dec_2 




mov di ,dx 


;most sifi*nif in li 


mov bp f 00n 




mov dx,bx 


Jadj least signif 


jmp a sc_iec _1 




mov cl t 09n 




st 1 di ,cl 
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; final result 
Jrestcre regs 



and dx,di 
pop si 
pop bp 
pop cx 
pop ax 
re t 

; Subrou tine: dec_ bin 

JEntry conditions: dx - Contains 4 elicit BCD number 

JExit conditions: dx - Contains binary equivalent 



^Registers Altered: 


dx 






JSubrou tines 


called : 


save ,res t o r 




;Description 


: 








; Tn is 


subroutine converts tne 


binary coded decimal 


; (BCD ) nun be r found 


in dx into 


its binary equivalent 


;and places 


tne result in dx. 






» 

dec_b in : 












call 


save 




Jsave all ree*s 




mov 


di ,dx 




,’save a copy 




mo v 


si,e 




»init result 




mov 


bp,0300n 




; power of 10 




mov 


c 1 1 0cn 




Jinit snirt factor 


dec_bin_l : 


mov 


ax, tp 




Jmove power of 10 




mov 


cn t an 




J t o cn 




snr 


dx f c 1 




jsnift BCD number 




mov 


bx f dx 




Jmove it tc bx 




and 


b x , 00 01* ft 




JmasK; off tne byte 


lec_Din_2 : 


mov 


ax ,0an 




J multiply factor 




mu 1 


bx 








mov 


dx f ax 




Jmove result to dx 




dec 


cn 




,'dec power of 10 




jnz 


dec__bin_2 








add 


si , bx 




;aid to result 




sub 


bp 1 0100 n 




Jadjust power of 10 










Jfor next loop 




mov 


d x , d i 




Jrestore number 




sub 


c 1 , 04n 




Jadjust shift count 




jnz 


dec Din 1 








mov 


lx ,d i 




Jrestore number 




and 


lx,000f n 




JmasK off last byte 




add 


s i ,dx 




; final result 




mov 


bi n_num t si 




; result 'bin_num' 




call 


, restor 








mov 


dx f bin_num 




Jmove result to dx 




ret 










J Subrou tine: 


bin dec 








JEntry conditions: dx contains 


Dinary 


numDer in ran^e 0-999 


JExit conditions: dx 


contains 4 


digit 


BCD equivalent 


JHesisters altered: 


d x 
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^Subroutines called: save,restor 
^Description: 

; Tne binary number found in register dx upon 

;entry to tnis routine is converted to its binary coded 
jdecimal equivalent. Note tnat no cnecKs are made on tne 
Jvaliiity of tne numoer but tnat any number outside of tne 
jrange 0-999 decimal will produce unpredictable results. 



bin dec : 









call save 






Jsave ail registers 








mcv 


di ,dx 






; save tne number 








mo v 


bx ♦ offset 


table 


_1 


J translate table 








mov 


bp f 0in 






Jinitialize mass 








mov 


ans_ls ,0n 






Jinitialize result 








mov 


ans_ms ,0n 














mov 


c 1 , 0 n 






Jinit tbl position 


bin_ 


dec 


__1 : 


and 


dx , bp 






Icnec’ic for bit set 








cmp 


dx ,0 n 














jnz 


bin dec 3 






Jupdate tne result 


bin_ 


dec 


_2 : 


inc 


cl 






Jupdate position 








cmp 


c i , 0 a n 






J test las t cneci 








Jz 


bin dec 6 














snl 


dpTi 






Jupdate tne mas£ 








mov 


dx # di 






J res tore number 








jnp 


bin_dec_l 








Din_ 


dec 


3 : 


mov 


a l f cl 






J offset trans tbl 








xlat table 1 






; translate number 








add 


a l ,ans_l s 






Jupdate tne result 








daa 








Jadjust result BCD 








mov 


ans_ls ,al 






J store result 








J* 


bi n_dec_5 








bin_ 


dec 


4 : 


mov 


bx , of f se t 


ta ble, 


_2 


Jpoint to table_2 








mov 


a l , cl 














xlat table_2 






J trans late number 








add 


a 1 ,ans_ms 














iaa 








Jadjust to BCD 








mov 


ans_ms , al 






J s tore result 








mov 


bx # of f se t 


table 


_1 


Jrestcre BX 








Jrc? 


bin_dec_2 








bin_ 


dec 


5 : 


mov 


al t ans ms 






jadd l to ms byte 








add 


al ,in 














daa 








Jadjust result 








mov 


ans_ms , a 1 






Jstore result 








j^p 


bin_dec_4 








bin_ 


dec 


_6: 


mcv 


ax ,0 














mov 


al,ans ms 






Jfinalize result 








mov 


cl, 8 






Jload sni ft count 








sni 


ax ,cl 














mov 


C X , 0 














mov 


cl , ans_ls 














aid 


ax ,cx 
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Jsave result 
Jrestor register? 
Jmove result to dx 



mov dec_num,ax 
call restor 
mov dx,dec_num 
ret 



. apapap ^ a? 3^ ^ jjt sp ap ap ap sp sp ap ap ap ap W VW 

Subroutine: dec_asc 

,'E ntry conditions: dx contains 4 di*it JiCI number 
;Exit conditions: dx contains most significant 2 digits 

; in ASCII code 

; bx contains least significant 2 digits 

; in ASCII code 

Se^isters altered: dx,bx 
Subroutines called: none 
; Description : 

1 The 4 liffit BCD number found in dx upon 

;entry is converted to its ASCII equivalent and placed 
tin dx and bx. No cnecK is made on tne validity of the 
;data in dx. 



dec asc : 



dec asc l: 



dec asc 2 : 



Subroutine: 



pusn 


ax 


fsave registers 


pusn 


cx 




push 


di 




push 


. bp 




mov 


bp ,01n 


; initialize flag 


mov 


al ,dl 


t a 1 low nyoole 


mov 


bl ,dl 


; fc 1 nign nybble 


and 


al ,0fh 




a nd 


d 1 1 C f 0 n 




add 


al ,30n 


; convert to ASCII 


mov 


cl, 4 




shr 


bl , cl 




add 


bl ,30n 


; convert to ASCII 


mov 


cl ,al 




mov 


cp. f bl 


Jmove result to cx 


cmp 


Dp 1 00h 


;iast conversion? 


je dec asc 2 




mov 


Dp , 




mov 


d i ,cx 


Sow result to di 


mov 


a 1 , d n 




mov 


b 1 ,dn 




J^P 


iec_asc_l 




mcv 


dx , cx 




mov 


bx ,di 




pop 


Dp 


^restore registers 


pop 


d i 




pop 


cx 




pop 

ret 


a x 





save 
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jEntry conditions: none 

;Exit conditions: all registers are pusnea on tne star* 
jRegisters altered: none 
Subroutines called: none 
, ’Description : 

; Tnis subroutine pusnes all of tne registers on tne 

Jstacfc. Note tnat tne call return is preserved. 



save : 



mov temp_ax,ax 
pop ax 

nov tempest acx , ax 

mo v ax , temp_ax 

pusn ds 

pusn es 

pusn ss 

pusn op 

pusn si 

pusn di 

pusn ax 

pusn bx 

pusn cx 

pusn d x 

mov ax , tempos tacit 
pusn ax 
re t 



Jsave ax 

; pop return address 
Jsave call return 
; res t ore ax 
Jpusn all registers 



; restore call return 



Subroutine: restor 

JEntry conditions: stacs contains ail tne registers 
;Exit conditions: registers are restored to tne condition 
Jprior to tne call to 'save' 

Registers altered: all except cs 
Subroutines called: none 
^Description : 

; Tnis subroutine returns ail registers to tneir 

Jsame condition prior to tne call to 'save'. 

» 

restor: 



pop 
mo v 
pop 
Pop 
pop 
pop 
pop 
pop 
pop 
pop 

DOp 

pop 

mov 



; pop return address 
_stacK,ax Jsave tne ^all return 
;pop ail registers 



ax 

temp 
dx 
cx 

DX 

ax 

di 

si 

bp 

ss 

es 

ds 

temp_ax , ax 



jsave as 
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mov ax , t emp_s t acs ^restore call return 
pusn ax 

mov ax,temp_ax Jrestore ax 
re t 



DATA SECTION 



t)in_nuT 


dw 


0 


Jused by 


d e c _ b i n 


t emp_ax 


dw 


0 


Jused by 


save and 


temp_s tacfc 


dw 


0 


; restor 




temp tic 


d w 


00ft 


Jused Dy 


trie nun 


• Jf Jf JfifSfSfJpSfJf afJf if Jfififif >f 3?Jf>f3iCJf if *< 


^ v V if ^ =P 5? ={C ^ ir 3? W s? V SS 5? 




storage 


required by b 


IN_DEC 





table 1 


db 


01a 




db 


02ft 




db 


04ft 




d c 


06ft 




d c 


16ft 




d b 


32ft 




d b 


64ft 




db 


28ft 




db 


56ft 




d b 


12ft 


ta Dle_2 


db 


00ft 




d b 


00ft 




d b 


00ft 




db 


00ft 




d b 


00ft 




d b 


00ft 




i b 


00ft 




d b 


01fl 




db 


02ft 




db 


0bft 


ans^ms 


d D 


00n 


ans_ls 


db 


00ft 


dec num 


dW 


00ft 


i 

J 


STORAGE 


REQUIRED BY C0N_IN 


i 

buffer 


db 


00ft 


num_cfta rs 


db 


00ft 


asc_dat a_i 


db 


00ft 


asc_!a ta_2 


d b 


00ft 


asc_data_3 


db 


0 0ft 


ms_data 


d w 


00ft 


Is data 


dw 


00ft 
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STORAGE required by rev 



cmd name 0 


d d 


'Initialize tne DisK $' 


cmd name 1 


ab 


'Verify Initialization $' 


cmd name 2 


db 


'Initialize and Verify $' 


cmd name 3 


d b 


'Format tne Disic $' 


cmd_name_4 


d b 


'Verify tne Format s' 


t 

rev tabl 


db 


wi d , cr , if , 'Command to be executed 




db 


'$',cr,lf 


» 

rev tabl 1 


d b 


'Pnysicai address of logical' 




i b 


sector 0 : 


asc log sec0 


d b 


00n 


asc log sec0 1 


1 D 


00n 


asc log sec0 2 


db 


00n 




d b 


cr, If t 'Sector strew factor: 


t 

asc slew fac 


d b 


00n 


a sc_sKw_f a c_l 


db 


00n 


asc_s£w_f a c_2 


d b 


00n 




d b 


cr, If, 'Location of spare sector: 


i 

asc_spar 


d b 


00 a 


asc_spa r_l 


db 


een 


as c_spar~2 


d b 


00n 


re v_ ta o l~2 


db 


cr,lf,'DisK neaa number: 


as c_nead 


db 


00 n 


asc_nead_l 


db 


00n 


asc_neaa_2 


db 


00n 




d b 


cr , 1 f , 'Beginning tracK number: 


asc_Deg_ t rir 


d o 


00n 


asc_De?_t rx_l 


lb 


00n 


asc_Deg_tr&_2 


d b 


00n 




d b 


cr f If , 'Ending tractr number: 


asc_end_t rK 


d b 


00n 


as c_enl_tr£_l 


db 


00n 


asc_end~t r&_2 


d b 


00n 




db 


c r , 1 f , 1 f 




db 


'Stride <enter> to continue' 




db 




f 


STORAGE 


REQUIRED BY PROC_ERR 



err_code 


d b 


00n 


proc_err_taol 


db 


vip f cr , If , 'S tati sties on Command 




db 


'Abortion: ' 




db 


cr , 1 f , 'Command being executed: s 
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proc_err_ta bl 
as c_dK_hea d 
asc_dfc_head_l 
asc_d£_bea d_2 

asc_tr£ 
asc_tr£_l 
asc”t ric_2 

asc_sec 
a sc“sec_l 
asc_sec_2 

as c_err_c 
asc_err_c_l 
asc err c_2 



jmp_ta ol_l 



Jrrp^ta bl_2 



jRD_tabl_3 



Jmp_ta bl_4 



jmp_ta bl_5 



I db 


cr f lf,'Disic bead number: 


db 


00b 


lb 


00n 


db 


00b 


db 


cr»if,'Last tnc number processed 


d b 


00b 


db 


00b 


d b 


00n 


d b 


cr, If, 'Last sec number processed 


d b 


00b 


d b 


00n 


db 


00b 


db 


cr * 1 f , 'Erro r code : 


db 


00n 


db 


00b 


d b 


0 0b 


d b 


cr , if , i f 


db 


'Stride <enter> to continue' 


d b 




JUMP 


TABLES 



d w 


in_ver_ds£ 


dw 


i n_ver~is£ 


dw 


in_ver_ds£ 


dw 


f m_ver_ds£ 


dw 


fm_ver_ds £ 


dw 


descr 


dw 


s_end 


d w 


read 0 


d w 


read_l 


dw 


reai_2 


dw 


read_3 


d w 


reai_4 


dw 


read_5 


dw 


read_d 


dw 


rev_en t 


dw 


cng_en t 


dw 


e _c inm i 


dw 


main 


dw 


s_end 


dw 


cmd_name_0 


dw 


cmd™name_l 


dw 


cmd_name_2 


dw 


cmd_name_3 


dw 


cnd_name_4 


dw 


cng_7 


d w 


C b£ _d 


dw 


cbg_9 


iw 


cng _ 10 
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jmp_ta bl_b 



read 0 



read 1 



read 2 



reai_2 



read 4 



dw cn*_il 
dw cnz_i'2. 
dw cn^_l0 
dw cn^_ll 
dw cng_12 



DESCRIPTION OF COMMANDS 



ID w ip ,cr f l f, 'Initialize tne Disk:' 

db cr t lf,' Tnis command is used 

ID 'to write tne address and 

db 'data fields on tne lisjc.' 

db cr,lf f 'It snould only be used if' 

db ' a disE fault is suspected' 

d b c r , 1 f , l f 

db 'stride <enter> to continues' 

db wip t cr, if t 'Verify Initialization:' 

db cr,lf , ' Tnis command is used in ' 

ib 'conjunction with tne Initialize 

db 'command. ', cr, If ♦ 'Any errors tnat 

db 'are discovered' 

db 'during verification 

do 'are reported at tne console.' 

db cr,lf 

db 'Tne error codes can De found in 

db 'tne Micropolis Tecnnicai Manual 

dt 'pp 24-2b' 

do c r , 1 f , 1 f 

lb 'stride <enter> to continues' 

ID cr»lf, 'Initialize and 

db 'Verify simui taneous ly : ' , cr , if 

db 'Tnis is a combination of tne 

lb 'previous two commands.' 

lb cr,lf,lf 

ib 'stride <enter> to continues' 

db wip , cr f if , 'Format tne DisK::' 

d b c r t if 

do 'Tne controller will place bln in 

lb 'all data fields ' ,cr , if f 'during 

do 'initialization of tne aisx. ' 

d b c r , 1 f 

db 'Tnis command is used to replace 

Id 'bln witn Ebn as tnis is ',cr,lf 

db 'wnat CP/M expects to find to' 

db 'create a directory 

d b c r , 1 f , l f 

db 'stride <enter> to continues' 

ib wip t cr* If , '7e rify tne Format:' 

lb c r f 1 f 

ib ' Verifies tnat E5n is in tne 
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read 5 



read 6 



menu l 



menu 2 



menu 3 



menu 4 



1 b 


'lata fields of tne list.' 


1 b 


c r , 1 f , 1 f 


db 


'stride <enter> to continues' 


db 


wip ,cr , If , 'Read a Description of 


db 


'tnese commands :', cr , if , if 


d b 


A quiet loot at tne commands 


1 b 


'available in tne Micropolis 


d b 


cr , If , 'Maintenance area . 'cr , if , If 


lb 


'strike <enter> to continues' 


1 b 


wip, cr, If, 'End tnis session:' 


1 b 


c r , 1 f 


1 b 


Immediately terminates tne 


db 


'session witn no furtner action.' 


db 


c r , 1 f , l f 


lb 


'strike <enter> to continues' 


^SNUS 



db cr , If , 'Sel ect Option:' 

lb cr,lf,'(Z) Initialize tne list' 

dfc cr,lf,'(l) Verify Initialization' 

db c r , 1 f , ' ( 2 ) Initialize and Verify 

lb 'simultaneously' 

db or, If, '(3) Format tne disk' 

lb cr,lf,'(4) Verify tne Fermat' 

lb cr,lf,'(b) Real a description of 

lb 'tnese commands' 

db cr,lf,'(6) Em tnis session' 

lb cr, If, 'Enter selection ==> $' 

db cr , if , 'Sel ect Option:' 

lb cr, If , 1 f , ' ( 0 ) Review entrys ' 

lb cr,lf,'(l) Cnange an entry' 

lb cr,lf,'(2) Execute command' 

lb cr*lf,'(3) Start over' 

db cr,lf,'(4) End session' 

db cr,lf, If, 'Enter selection ==> s' 

lb cr , If , 'Select value to cnan^e:' 

lb cr , If , if , ' (0 ) Physical address of 

db 'logical sector 0' 

lb cr,lf,'(i) Sector skew factor' 

lb cr,lf,'(2) Location of spare 

lb cr,lf,'(3) Disk neai number' 

lb cr,lf,'(4) Ee^innin* track number' 

db cr,lf,'(5) Enii track number' 

db cr, if , if , 'Enter selection ==> s' 

db cr , If ,1 f, 'Select value to cnange:' 

lb cr,lf,'(0) Di sit neai number' 

lb cr,lf,'(l) Peffinnins track number' 

lb cr,lf,'(2) Ending tract number' 

db cr,lf ,lf , 'Enter selection ==> s' 
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1 

1 


ERROR 


MESSAGES 


f 

micrst_err 


dD 


cr , if f 'Micropoli s Piss Resex Errors 


err_in 


d b 


wip , be , cr , if , ' Error in input.' 




db 


'Only integer data is valil. 




d b 


cr.if, 'Try again ==> S' 


err 1 


db 


wip, be, cr, If , 'You nave not 




ib 


'selected a valid option. S' 


err_2 


d b 


wip f oe , cr, If , 'ERROR: $ ' 


» 


GENERAL MESSAGES 


» 

end ms? 


d b 


cr, if .'Session nas been 




ib 


' terminated . s ' 


^arn 


d b 


vxip , cr ,lf , ' ' 




db 


'■if A R N I N G 




lb 


cr.lf.'Use of tnis oro^ram will' 




d b 


'destroy tne contents of dis£ !!!!' 




1 D 


cr,lf,'Do you wisn to 




ib 


'continue (y/n)? S' 


ms g 1 


db 


cr, If, 'Input dis£ nead nuinoer. ' 




ab 


cr, If, 'Valid range is 0 to 4 ==> $' 


msg_2 


ID 


cr, If, 'Input tne pnysical 




d b 


'address of logical sector 0.' 




1 b 


cr, If, 'Valid range 0 to 23 ==> S' 


msg_3 


db 


cr, If, 'Input sector s^ev factor' 




db 


cr, If, 'Valid range 0 to 23 ==0 S' 


ms g_4 


d b 


cr, If, 'Valid range 0 to 579 ==> $' 


msg_b 


d b 


cr, If, 'Input beginning 




d b 


'trfc number. S' 


msg_t> 


db 


cr, if, 'Input ending traci number. $' 


msg_7 


db 


cr, if, 'Input location of 




db 


'spare sector' 




1 b 


cr, If, 'Valid range 0 to 255 ==> S' 


msg_0 


db 


cr, If , If , 'Currently formatting ' 




1 D 


and/or verifying format of Use' 




i b 


c r , If , 'Please standby S' 


msg_10 


ib 


cr , If , If , 'Current iy initializing ' 




db 


'and/or verifying disn:' 




1 b 


cr , If , 'Please standby S' 


nsg_li 


d n 


cr , If , 'Command was successfully' 




db 


executed. S' 


» 


MI CROPOLIS PARAMETER TABLE 


cmd_byt e 


d b 


0 0n 


parml 


d b 


00n 


parm2 


d b 


00n 


parm3 


db 


k?0n 


pa rm4: 


i b 


00n 
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pa rm5 
parm5 

^o_Dy te 

• — — - - - 1 - - - 


d b 
d b 
l b 


00n 

00n 

00n 


» 


STORAGE 


REQUIRED RY MAIN PROGRAM 


1 

crr>d_type 


do 


eea 


iog_sec0 


dt 


00n 


s£w_fac 


db 


00a 


spar 


d b 


00n 


nead 


db 


00n 


beg_tric__num 


dw 


00n 


end_trK_nurc 


dw 


00n 




end 
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APPENDIX C 

PROGRAM LISTING OF CPMBIOS.ABb 



JProg Name 
; Date 

^Written by 
,* Modified by 
;For 

f Ad vi so r 
;Purpose 



CP M BIOS . ABB (Master CPM Bios) 

5 April 1983 
Digital Researcn 
Mars L. Perry 

Thesis (AEGIS Modeling Group! 

Professor Cotton 

Tnis bios is for use wi tn tne iS386/l^A. 
Includes losin and logout routines and ail 
Read/Write operation conducted via common 
memory. It also includes tne cole for 
generating a loader for tne Renex floppy 
list . 



* 3JC S? J* ^ m Jf * 3JC JJ< *S jp ¥ * SS 3?C 5p ^ jp sp J? 3p jp jp Jp *S jp Jp jp Jp Jp Jp P? JP Jp jp jp JJC 3? jp jp JjC 3? Jp Jp Jp Jp Jp jp 3? jp Jp 8p Jp 

EQUATES 



true 


equ -1 




false 


eau not true 




cr 


equ 0dn 


Jcarria^e return 


If 


equ 0aa. 


iline feed 


error 


equ 0 f f n 


Jeeneral error indication 


master 


eau true 


» f or master/slave version 


loader_bios 


equ false 


»set for loader version 


cmemse? 


equ 0 e 0 0 0 n 


; common memory segment 


; system a dire 


sses 




bdos _in t 
? 


pqu 


?re erved ED OS interrupt 


i 

IF 


not loader_bios 




j ■" 

» 

ccp_of f se t 


equ 0000-n 


Jstart of CCP code 


bdos_of f se t 


equ 0E06n 


; BDOS entry point 


bios _o f f s e t 

i 


equ 2 E 0 0 n 


; start of BIOS cone 


t 

ENDIF 




;not loader_bics 


IF 


loader_bios 
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bios offset 


eou 1200ft 


» start of Id bios 


CCD off 


set 


equ 00Z3n 


} base of CPMLOADJ5R 


bdos _of fse t 


equ 0406ft 


; stripped EDOS entry 


t 


ENDIE 




; loader_oi os 


Jconsole via 


tne 18251 USART 




cs tat 




equ 0ian 


;status port 


cda ta 




equ 0d3n 


Jdata port 


t bemsK 




equ 1 


; transmit buffer empty 


rdamstc 


cs eg 


equ 2 


Jreceive data available 




O TS 


cc pof f se t 




ccp : 


org 


bi os _ offset 





• pe peps pc pc pc pspcps peps pc pe peps peps pep: peps peps pc peps pspspspspspcpepsps pc peps peps pe peps peps pepspspspepsippspspspspepspe 

bios: > JUMP VECTORS 

j ps ps pe ps ps pe pe pe pt ps * pe pc ps ps ps * ps ps pe ps ps peps peps pc pspspsps peps peps pc pspspspspepspspspspsptpepspspspspspspspspepsp; 



jmp I N IT 
jmp WBCOT 
jmp CONST 
jap COMN 
Jap CONOUT 
jmp LISTOUT 
jmp PUNCH 
jmp READER 
jmp HOME 
jmp SELDSK 
jmp SETTRK 
jmp SETSEC 
jmp S ST DM A 
jmp READ 
jmp WRITE 
jmp LISTST 
jmp SECTRAN 
jmp SETDMA3 
jmp GETSEGT 
jmp GETIOBE 
jmp SETIOBF 



jEnter from 300T ROM or LOADER 
JArrive nere from 3D0S call 0 
Jreturn console Keyboard status 
Jreturn console Keyboard cnar 
Jwrite cnar to console device 
Jwrite cnaracter to list device 
? write cnaracter to puncn device 
^return cnar from reader device 
Jmove to trK 00 on sel irive 
Jseiect disK for next rd/write 
>set tracK for next rd/write 
> se t sector for next rd/write 
;set of set for user buff (DMA) 
Jread a 126 Dyte sector 
Jwrite a 12S byte sector 
Jreturn list status 
jxlate logicai->pnysicai sector 
Jset s eg base for buff (DMA) 
Jreturn offset of Mem Desc Table 
^return I/O map oyte (iobyte) 
;set I/O map byte (iobyte) 



Tfi pS pS pS pe p: pe pt pe pe Sfi pS jp pe pe P« JP PS P« jp 3p P« i? P« P* P< SP 5? 3? SP SP P« P« P« PC PC PS pS pC 3JS pe pe Vfi. pe pe pc pe pe pC pe pt PS pC pt 3? Zfi, Sfi V pt 

Entry Point Routines 

pepepspepcptpsptpeptpspepspepepepcpepspepspspspepepspepepspepcpcptpeptpepspspspepeptpeptptpspepspipepspepepspspspe pspt 
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IF not loader_bics 



include login. a3b Jiogin & logout procedures 



ENDIF 



• Ifi yfi ^ Sfi & 3fi J? Jfi W Tj: Sf. 

IN IT : Jprint signon message and initialize Hardware 

;and software 



mo v 


a x , c s 


mov 


ss , ax 


mov 


ds ,ax 


mo v 


es ,ax 


mov 

cld 


sp, offset sta: base 


IF 


not loader_bios 



Jwe entered witn a JMPF 
; so use cs : as initial 
Jsegment values 

Juse local stacic 
Jclear direction flag 



Tnis is a BIOS for tne CPM.SYS file 
Setup all interrupt vectors in low 
memory to address trap 

pusn ds 
pusn es 



mo v 


io byt e ,0 


Jclear i/o cyt 


e 


mov 


ax , 0 


Jaadress trap 


routine 


mov 


ds ,ax 






mo v 


es, ax 






mov 


int0_of f st , off set 


int_t rap 




mov 


int0_segmen t ,cs 






mo v 


di ,4: 


Jpropa^ate to 


rema inins 






J v e c t o r s 




mov 


si ,0 






mo v 


ex, b!0 






rep movs 


ax t ax 






mov 


bdio , bdos_of fset 


Jcorrect bdos 


in t vector 


pop 


es 






pop 


d s 







ENDIF Jnot loader bios 



IF ioader_bios 



Tnis is a FIGS for tne LOADFR 
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save data segment 



push 

T) 0 V 

mo v 
mo v 
mo v 
Pop 


ds 

ax , 0 
ds , ax 

bdio,bdos offset 
bdi s , CS 
ds 


Jsave data segment 

Jpomt to segment '2 

Jcorrect offset 

Jbdos interrupt segment 


EM DI l 1 


; ioader_ bi os 


call 


con_i ni t 


^initialize console 


xo r 
ini 1 : 


bx , bx 


» ge t mass storage 


mo v 


ax,intbl [bxj 


; ini tialization table 


or 


ax t ax 


Jquit if end of table 


jz 


i ni2 




push 


bx 




call 


ax 


;cail in it entry 


pop 


bx 




inc 


bx 


Jstep to next entry 


inc 


bx 




j*P 


i nil 


; loop for next 


IF 


not loader_bios 





ini'2: 

call login 

mov bx, off set sign on 
call pmsg 
mov cl,user 


Jprint sign on msg 


ENDIF 


Jnot loader_bios 


IF loader_bios 




ini2: 

mov bx, offset signonl 
call pmsg 
mov cl , 0 
mo v uni t , 55 


Jprint sign on message 
; default to 'a' on colistart 


ENDIF 


; loader_ bi os 


jmp ccp 


Jjump to cold entry of CCP 



. jpspspapjpjpjpjpap ^jp^apjpjpapap jpjpjp jp V V;? 
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WBOOT 



enter CCP at command level 



jmp ccp+5 



• Jpapsp JJS3P J^s? s?^S* W*? 

CONST: Jreturn console status 



in 


al , cs ta t 


and 


al , rdams £ 


Jz 


coni 


or 


al ,0ffn 


re t 





; return non-zero it* rda 



• jpapspjpjpjp ^jp;p;p:9::£:*psp£:£;pptps;p ^jp:*:p:^:*:ppi*3p3p^:* vspjpjpsjespspspjpjpjpapspjpjpj.ii.ispspspjpjpspjpjpv 



CONIN : 



;?et a cnaracter iron console 



call 


CONST 




jz 


CONIN 


; w 


in 


al , cda ta 




and 
re t 


al ,7fn 


; rea 



ait for HD A 

d data ^ remove parity tit 



• 3f jp 3 ? jp jp jp psspjp jpjpsp ap jp>p apap apapappopapspapapjpapapap spspap Jp *?*? ap jpjpjpap ipjpJpjp J? sp JPV spspsp 

CONOUT : Jsend a cnaracter to console 



i n 


al , cstat 




and 


al , t DemsJc 


5§et console status 


jz 


CONOCT 




mo v 


al , cl 




out 
re t 


cda ta ,al 


»xmit ouff is empty 



• jpapjpapjpjp jpapsp jpap jp jpjpjpjpjp jpap ap apjppc jpjpjpap jpjp jpjpapjp jpjpapjpapspapspjpjpjpjpjpjpjpjpjpjpjpap spjpapjp jpap 

LISTOUT: Jsend cnaracter to list device 

>not yet implemented 



re t 



' jpsp^ps^jpappeapjpapjpapjpjpapjpapapjpapapap ap jpapjpjpjpjpjpjpjp jpapjpjpipjprpjpapapjpjp jpjpapjpjpjpapjpapjpapjpapjp 

PUNCH: ; write cnaracter to puncn device 

»not implemented 



re t 

J jpjpjfepopjpjpsp Jpapapap jpjp jp jpjpapjpjp jpjpjpjpjpjpapapjpjpjpjpjpapapjpjpapjpjpjpapjpjpjpjpapjp jpjpapjpjp jpjpapapjpjp 

READER : ;get cnaracter from reader device 

Jnot implemented 
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mo v a 1 , lan 
ret 



2 return eof 



• V V ^ v V ^ vv SJC W ^ ^ V ^ ^ ^ v v V V V v v V v *»* ^ *«» V Wm *»* W #,s 2,5 2 ,; 2 ,; #»« v 2,5 ^ v V v v 

ROME : Jmove selectei dist to trie Cfc? 



mo v 


tract ,0 


xo r 


bx 


, DX 


mo v 


Di 


,uni t 


add 


DX 


, bx 


caii 


dm 


t bi l dxJ 



re t 

2 

2 

• JJtJJEJtSSp^t^CJJtjpj^ fltjpjjt ^S^C39S^S3^3?^e39S^C3?3J£JJE39E^S3?3psp V5?V^t5?S? V WVS? V W V^VV W W 

SELESE: 

Jreturn pointer to appropriate 'dist 
Jparameter bioct' (zero for Dad unit no) 





; MOTE : 


numts is defined in tne ,cf£ fils 


mo v 


unit , ci 


Jsave unit number 


mo v 


bx , 0000n 


Jreadv for error return 


emp 


ci ,nuni ts 


; return if beyond max uni 


j n b 


sell 




mo v 


bi ,uni t 




add 


bx , bx 




call 


dstt bi [ bxj 




xor 


bx , bx 




mo v 


bi ,unit 


2 bx = ci * 16 


710 V 


ci , 4 




sni 


ex , c 1 




mo v 


c x , offset 


debase 2 bx += ^dpbase 


add 


bx , cx 




re t 







• ^ ap^i spjjc 

SETTRK : 2set tract address 



mo v 


tract , ci 


xo r 


bx , bx 


mo v 


bi , uni t 


add 


tx , bx 


caii 


trtt bi [bxj 



re t 



J H*ZVtZ?.7f.7f.7tVf.7?.7fiVf. ?JC J? 5* 3? J£ :? 3? J?C J* J? 3* 3? 3* 3? 3? 3p 3? 3* 3* J? 3? S? >r ^ J? S? i? 3? 3? ^ 5ft V 3? 3? ^ 3? 3? ^ ^ 3^ 

SETSEC: Jset sector number 
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mo v 



sector, CL 



xor ox , bx 
mov bl # unit 
aid bx , bx 
call sectblLbxJ 
re t 

• 3JC*S3iCJJCir WJr W J* J* jp *C JJC J? J? S? JjCJpjp 3? J* J? S£ JjC 3? S£ Jp J* JJS 3jS 3£ V 3}t Jp J? J* J? J? J? 

SSTDMA : ;set DMA offset given by cx 

Tiov dma_adr,cx 
re t 



• jpspjpjpjpjpspjpjpspspjpjpapjpjpjpspspjp jppspsjpjpjpspspjpspw jppsspjpjpspjpjpjpjpjpspjpjpjpspspjpspjpjpjpjpjpjpjpjp 

READ: Jread selected unit, tracx, sector to dma adlr 

Jread and write operate by an indirect call 
Jtnrougn tne appropriate table contained m 
Jtne configuration file. It is tne programmer 's 
; rpsponsi bili ty to ensure tna t tne entry points 
Jin tnese tables mated tne unit type 



xo r 


ox , bx 


mov 


bi ,um t 


add 


bx , bx 


call 


rdt bl [bxj 


ret 





WRITE: Jwrite from dma address to selected 

Junit, trac&, sector 

xor bx,bx 
mov bl,unit 
add ox , ox 
call w rt bl l bx J 
re t 



LISTST : Jpoli list device status 

Jnct implemented 



or al,Cffti J return ready anyway or 

ret J system may nang up 



; *pjp jpjpspap jpspjp ap :p jp jp sp sp :p 3p jp ;p jp jp jp ;p jp ;p jp :p jp W psspspjpjpjpapjpspjpjpjpjpap* W& 

SECTRAN: Jtranslate sector cx by table at [dxj 

J NOTE : tnis routine is not adequate for 

Jtne case of >= 256 sectors per tracic 
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Jstill it's Detter than DR's which is not 
^adequate for tne no taDie case eitner 



mov 


cn , 0 






mov 


DX , CX 






cmp 


dx f 0 


t cne 


c k for no table case 


je 


sel 






aid 


bx ,dx 


; add 


sector to table addr 


mov 


bl f [bxj 


Jget 


logical sector 


ret 









SETDMAB: ; set DMA segment sriven Dy cx 

tov dma_seg,cx 
re t 



• 3*3*3* 3*3*3*3*3*3*3*3*3*3*3*3*3*3*3*a*3*3*3*a*3*3*3*3*3*3*3*a*>*3*3*3*:;Sa*3*;*:*3*a?3* 

GETS EOT : ;return aadr or physical memory taoie 

mov cx.offset segtaole 
re t 



* 3*a*3*3*a*3*3*3*3*:*3*3*3*3*;p3*3*3*:*3* 3*3*3*3*3*3*3*:*3*3*3*3*2*S*3*3*3*3*i*;*3*3*3*3*3*3*3*3*3*3*a*a*3*3*3*3*a*3*3* 

GETIOEF: Jreturn ioDyte value 

?note - tms function and SETIOBF 
;are OK out to implement tne function 
;tne character 10 entry point routines 
?nust be modified to redirect 10 
Jdepending on the value of ioDyte 

mov al , i o byte 
re t 



j 3* 3*3* 3*3*3* 3*3*3* 3*3* 3* J* 3*3*3* 3*3*3* 3* 3*3* J* a* 3*3* 3*3* 3*3*3** 3* 3*3* 3* 3* 3*3* 3*3* J* 3* 3*3* J* 3*3* 3* a* 3*3*3* 3* 3*3* 3* 3*3* 

SETIOBF: ;set iooyte value 

mov iobyte.cl 
ret 



SUBROUTINES 

3* a* 3* a* * a* a* a* 3 * a* a* 3 * a* s* a* 3 * a* a* 3* a* 3* a* 3* a* a* a* 3* 3 * 3 * 3 * a* a* 3* 3 * a* 3* a* a* a* a* a* 3*3* a* 3* spa* a* 3 * 3 * 3 * a* a* 3 * 3 * a* 3* 3* a* 



IF 



not loader Dios 



int_trap: ^interrupt trap - non interrupt 

jariven system so snould never get 
jnere - send, mesage and nait 



cl i 




; DIock interrupts 


mo v 


ax f cs 




mo v 


ds,ax 


Jget our data segment 


mo v 


bx, offset int_trp 




call 


pmsfr 




nl t 




; n a ra s t o p 



ENDIF 



;not loaaer Dios 



con init: 



^initialize console driver 

factually done by tne iSLC86/lBa monitor 



re t 



pnsg: 



;send a message to tne console 



mo v al , l bxj 
test ai,ai 
jz pm si 

mo v cl , al 
call CONODT 
inc dx 



jmps pms? 
pmsl : 
re t 



jffet next cnar from message 
?if zero return 
Sprint it 



J DISK INCLUDE FILES 

j vsjs^sjpjis^caitaisjie jjss^jis j^^ca^sjs JP W a**? 



include rxi'lop.aSb 
include micnard.aSb 



IF not loader Dios 



include mb8£dsK.a8b 
include rxnard.a86 
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EN DI F 



Jnot loader_bios 



RESOURCE ALLOCATION 

low-level synchronization of access to tne shared 
device. <sync.aB6> must include tne tnree entry- 
points defined in the ct's. files. These are 
called on initialization and before and after 
accessing tne resource respectively. 

IF not loader bios 



include sync.aSS 



ENDIF jnot loader_bios 



DATA $. LOCAL STACK AREA 



cseg $ 

sign on db cr,lf t cr t lf 

db cr , If ,lf , ' 

if master 

db 'CPM/B6 faster ' 

endi f 

if not master 
db 'CPM/B5 Slave' 

endi f 

IF not loader bios 



db cr,lf t lf,' Modified 

db 'Z2 April iy83 by' 

d b c r » 1 f » 

db 'Mars L. Perry' 

db cr , If , If 

db ' For use with a Rubble Memory , 

db 'tne REMEX Dataware House f ' f cr , If 

db ' and tne Micropolis DisK Drive' 

db cr , If , if , if ,0 



ENDI F 



Jnot loader bios 



1 *2 



IF 



loader Dios 



signonl db 
db 
db 
d b 



cr , If t ' CP/M-S6 Loader' 

cr»lf,' Version l.tf' 

cr , if , 'Loading CP/K from the Remex' 
floppy Dis^c Drive. . .',0 






1 111 


ENDIf 




; 1 oader_bi os 


int_trp 


d b 


c r , 1 f 






db 


'Interrupt Trap Halt' 




db 


cr,lf, 


0 


io by te 


r b 


1 


jcnaracter l/o redirection byte 


unit 


r b 


1 


^selected unit 


t racK 


rb 


1 


^'selected tracK 


sector 


r b 


1 


selected sector 


dma_adr 


rw 


1 


Jseiected DMA address 


dma_se? 


rw 


1 


Jseiected DMA segment 


loc_s tit 


rw 


im 


Jlocal stacic for initialization 


s t xbase 


eq u 


offset 


$ 


; system 


memo ry 


segment 


table 


segtable 


db 1 


;i segment 



dv tpa_seg ?lst seg starts after BIOS 

dw tpa”len >and extends to top of TPA 

; DISK DEV ICS TABLES 

;tne included .cfg file below maps unit number to disff 
^device type, it provides tables of entry point 
Jaddresses for use by init, read and write. These 
jaddresses must appear in tne appropriate include 
Jfile for tne particular device type 

include cpmmast.cf* ?read in configuration 

; ta ble 

IF loader bios 



include Idrmast.cfg 



Jread in configuration table 



ENDIF 


; loader_bi os 


tne included .lib file contains dis£ definition 
tables detailing disic cnaracteris tics for tne Ddcs 
.lib files are s-enerated by GENDEF from definition, 
files and must comply vitn tne allocations made in 
tne corresponding configuration file. 


1 


not loader_bios 


in elude 


cpmmast.lib ; read in di stt def tables 


ENDIF 


;not loader_bios 


IF 


loader_bios 


include 


ldrmast.lib ; read in disit def tables 

Jfor tne loader 


ENDIF 


; ioader_Di os 



* 3 ? s* 39c 59c V W W ^ W V * V * V V * W V W W W W W W =je V W W ?* * ^ W *c V >P >P *e V J? W W 3 p V 

END OF BIOS 

w j)« W W w W V 59c w W V »i< V W W JSC W V ns V s? 3 JS V 3 ? W W s? W W ^ s? V ^S 5 ? 5 ? 5 ? 3 ? ^ JJt ^C ^ W ^ 5 ? 



las toff equ 


offset $ 




tpa_se? eau 


(lastoff 


+0400n+15) / lb 


tpa_ien equ 


efffn - 


t? a _seg 




d b e 


5f ill last addr for GENCM. 


• ncncncncncncncncncncncnencncncncncncncncjpncncncncncncncncncncncncncjpncncnsncncncncncncnsncncjpncncncncncncjpnc: 


1 


PAGE ZERO TEMPLATE 


• jfiXfi, Sfi ifi >?VnSn<*r'V 


vV# VV ViCVV vVVV V9V VrV'r'i'rv?, 




dseg 


0 Jabsolute low memory 




org 


0 ;(interrupt vectors) 


int0_of fs t 


rv 


1 


intersegment 


rw 


1 




rw 


2 V ( bdos_in t-1 ) 


bd io 


rw 


1 Jbdos interrupt offset 


bdis 


rw 


1 ; bdos interrupt segment 


end 







144 : 



appendix d 



PROGRAM LISTING OP CPMMAST.CFC- 



;Proff Name : 
; Da te : 

JModified By: 
;Por : 

jAdvisor : 

jPurpose : 



CFMMAST .CFG ( Master Configuration for CPM) 

25 April 1983 
Marie L. Perry 

Tresis (AEGIS Modeline Group) 

Professor Cotton 

Tnis code is an include file w/in CPMEI0S.A85. 
It contains tne device tables for access to 
initialization, read, ^ write routines. It 
also allows for the development of a loader 
RIOS . 



IF not loader_Bios 

» — — — — — 

; DEFINE nunits 

nunits db 12 ?total number of mass storage units 



ENDIF ;not ioader_bios 

INITIALIZATION TA5LE 



; int Cl contains a sequence of addresses of initialization 
Jentry points to te called by tne RIOS on entry after 
;a cold coot. Tne sequence is terminated by a zero entry 



IF 


master 


■ and not load 


er_bios 




5 

intbl dv 


offset 


mb£0ds fc_ini t 


; initialize 


Bubble 


dw 


offset 


rxf lcp_ini t 


; i ni tialize 


Re me x 


d w 


offset 


ini t sync 


; initialize 


sync variables 


dw 


offset 


ini t_‘login 


; initialize 


login 


d w 


offset 


mic_ini t 


JMicropolis 


initialize 


dw 


0 




;enn of table 



ENDIF 



; [raster and not loader_bios 



IF not master and not loader_Cios 
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intbl dv offset mb8ZisC_init Jinitialize Bubble 

dw offset rxflop_init initialize Remex 

dw 0 ;end of table 



ENDIE ;not master and net 

? 1 oader_oi os 

; READ TABLE 

;rdtbl and wrtbl are sequences of iengtn nunits, containing 
;tne addresses of tne read and write entry point routines 
respectively wnicn apply to tne unit number corresponding 
; to tiie position in tbe sequence. Tnese and tne entry pts 
;for initialization must correspond to tnose contained in 
;tne appropriate include files containing code specilic 
;to tne devices. 



IE not loader bios 



1 

rd tbl 


dw 


offset 


rnbBZds c_read 


i A : 


i s 


a bubble memory 








dw 


O f f S 3 1 


rxf lop_read 


?B: 


is 


Remex floppy disc 


1 




dw 


offset 


rxf iop_read 


J C: 


is 


Remex floppy disc 


2 




dw 


offset 


rxnard_read 


> L i 


i s 


Remex nard 


disc 


0 






dw 


offset 


rxnard_read 


tEs 


is 


Remex r. arc 


disc 


1 






dw 


offset 


rxnard_read 


» F : 


is 


Remex nard 


disc 


2 






dw 


offset 


rxnard_read 


• n 
1 * 


i s 


Remex nari 


disc 


3 






d w 


offset 


mic_read 


;es 


is 


Mic ropo lis 


disc 


Z 






d w 


offset 


mi c_read 


;is 


i s 


mic ropo lis 


disc 


1 






dw 


offset 


mi c_reai 


;j: 


is 


Micrcpoiis 


disc 


2 






d w 


offset 


mic_read 


;K: 


is 


M icropo lis 


disc 


3 






dw 


offset 


mi c_read 


;ls 


is 


Mic ropo lis 


disc 


4 





i 




WRITE TABLE 


wrtbl 


dw 


offset 


mbBeds c_wri t e 




dw 


offset 


rxf iop_wri te 




d w 


offset 


rxf lop_write 




dw 


offset 


rxnard_wri te 




d w 


offset 


rxnard_wri te 




dw 


offset 


rxnard_wri te 




dw 


offset 


rxnard_wr i t e 




dw 


offset 


mic_wri te 




dw 


offset 


mic_wri te 




dw 


offset 


mic_wri te 




dw 


offset 


mic_write 




dw 


of f se t 


mic_wri te 



146 



HOME TABLE 



amt bl 


dw 


o f f set 


m b80dsx_nome 




d w 


offset 


rxf lop_nome 




dw 


o f f se t 


rxf lop_H°me 




dw 


offset 


rxnard_nome 




dw 


offset 


rxnard_aome 




dw 


offset 


rxnard_none 




dw 


offset 


rxnard_nome 




dw 


offset 


mi c_nome 




dw 


offset 


mic_nome 




dw 


o f f set 


mi c_nome 




dw 


of f se t 


nic_nome 




dw 


o f f set 


mic~nome 



• - 

> 




S ELDS X TABLE 


dsxtbl dw 


o f f set 


n bS0ds£_seldsx 


dw 


o f f set 


rxf lop_seldsx 


dw 


offset 


rxf iop_seldsx 


dw 


offset 


rxnard_se ldsic 


dw 


offset 


rxnard_seidsx 


dw 


offset 


rxnara_seidsx 


dw 


offset 


rxna rd_se IdsX 


dw 


offset 


mi c_se ids x 


dw 


offset 


mi c_seidsx 


dw 


offset 


mi c_se IdsX 


dw 


offset 


nio_seids x 


dw 


offset 


mi c_se idsx 



SETTRK TABLE 



trXtbl dw 


offset 


dw 


o f f set 


dw 


offset 


dw 


offset 


dw 


offset 


dw 


o f f set 


dw 


offset 


dw 


offset 


d v 


offset 


dw 


offset 


d w 


offset 


dw 


offset 



m c 8 0 d s x_ s e 1 1 r x 
rxf iop_set trie 
rxf iop_set trx 
rxoard_se 1 1 rx 
rxnard_se t t rx 
rxnard_se t 1 rx 
rxnard_se t tr& 
mi c_se t trx 
mi c _s e 1 1 r x 
mi c_se t trx 
mic_se t trx 
mic settrx 



14:7 



SETS SC TABLE 



e c t b 1 d w 


offset 


dw 


offset 


dw 


offset 


dw 


o f f set 


dw 


offset 


dw 


offset 


dw 


offset 


dw 


offset 


dw 


offset 


dw 


offset 


dw 


offset 


dw 


offset 



mD30iSK:_se tsec 
rxf iop_set sec 
rxf iop_se tsec 
rxnard_set sec 
rxnard_se t sec 
rxnard_se tsec 
rxfta rd_.se t sec 
mi c_se t sec 
mic_se tsec 
mic_setsec 
mi c_set sec 
mic setsec 



EN DIE 



Jnot loader_bics 



APPENDIX E 



PROGRAM LISTING OF MI CHARD . A86 



Prog Name 
Date 

Written Dy 
For 

Advisor 

Purpose 



MICHARD.A85 (Micropoiis Hard Disit) 

13 April 1983 
Marie L. Perry 

Tnesis (AEGIS Modeling Group) 

Frofessor Cotton 

Tnis coae is an include file w./in tne 
BIOS. It contains tne nardvare dependent 
code for tne Micropoiis Pi s a Drive 



jp S* 3? JJS Tfi V a? V ** V 3JS V 5JS ^ 5?C *£>£ jp 3? ^ J? 3p 3(C S* J* *C JJS 5? JjC 5* J)C ^ ?? 3£ 3? JJC 3? JJC *5 r? Jp J(£ S? Sft J,S JJC I? SjS 



EQUATES 






EQUATES FOR THE 8255 PIO 



mic_por te 


equ 


cen 


»* command port 


mic porta 


equ 


0c8n 


; oi-airec tional 


mic_por t 0 


equ 


0can 


; output port 


mic~p° r i c 


equ 


0ccn 


; control/statu s 


mic_mode2_0_ou t 


equ 


0c0n 


Jmode for 8255 


» 




J'AD Tt’JP Q'JC'l 


T> T m 




fjVUAlJli 


x Ur. iii OCw»o 


ri 1 — 


t 

mic_mode_por t 


equ 


00i6n 


»‘mode for timer 


mic_coun t_po r t 


equ 


00d0n 


counter port 


mic_mode_cnt 1 


eau 


0030n 


Jmode control value 


ml c_ls o_value 


equ 


0cn 


; least sig value 


mi c_ms o_va lue 


equ 


30n 


Jmost si^ value 


i 


7 n n 4 m s’ q 


Tpr^D <T> U ? QQC^rjA 


TITn 




It w 1 J n. I JL 0 


x Jr. Ini zi ~ Cd A 


rUi 


mi c_icwi 


eau 


13 n 


icontrol word 1 


mic_icw2 


equ 


40n 


? control word 2 


mic_ic v4 


equ 


ern 


Icontroi won 4 


mi c_ocwi 


equ 


ztfn 




mic_pic_po rtl 


equ 


00c on 


Jicw port 


mic_pic_po rt2 

t 


eau 


0ec2n 


Jocw port 


t 

t 


MICROPOIIS EQUATES 




i 

mic_rs tro_on 


equ 


000010100 


Jreaa signal 


mic_rs t rO_of f 


equ 


000000100 


Jread signal off 


mic_ws t ro_on 


equ 


000001100 


» write signal 
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mi c_ws t rb_of f 


equ 


00000010b 


» write signal orf 


mic_sta t 


equ 


00000000 b 


Jstatus signal 


mic_cmd 


equ 


0 0000000 D 


Jcommand signal 


mic_da ta 


equ 


00000001 b 


Jdata signal 


mic_s tr b_on 


equ 


00000010b 


Jinput latcn signal 


mic strb_off 


equ 


00000011b 


;iatcn signal off 


mic_ack_on 


equ 


00000100b 


joutput signal 


mic_acK~of f 


equ 


00000101b 


; out put signal off 


mic_en_sel 


equ 


00000010b 


Jselect enable 


mic~s tndrd 


equ 


00010110b 


Jnormal reset 


mi c_irdy_nask 


equ 


00000001b 


Jinput ready 


mic_ordy_mas k 


equ 


00000010b 


;cutput ready 


mic~busy_mask 


equ 


00010000b 


t busy 


mic_mas fc 


equ 


10100000b 


Jattn or areq 


mic_a 1 1 n_mas k 


eau 


10000000b 


Jattn only 


mi c_ireq_masK: 


equ 


00100000b 


Jdreq only 


mi c“cml_ma sk 


equ 


00000011b 


; c ommand 


mi c_rd_cmd 


equ 


04en 


; micro polls read 


mic_wr_cmi 


equ 


04? n 


Jmicropolis write 



Sector BlocKing/De Dloctcing 



mi c 


_una 


equ 


byte 


Dtr [EXJ Jname for byte at EX 


mic 


_DlKSi Z 


equ 


16384 JCP/M allocation size 


mic' 


_nstsiz 


equ 


bl2 


♦host disk sect size 


mic 


_ns t spt 


equ 


?4 


Jnost disk sects/trk 


mic, 


_ns t DlK 


equ 


mic 


nstsiz /128JCP/M sects /no st cuff 


mic 


”secsnf 


equ 


2 


; log2( mi c_ns t cite ) 


mic' 


“cpmspt 


equ 


mic__ 


nstblic * mi^_nstspt 










;CP/ V sec to rs/tracs 


mic 


_secmsk • 


equ 


mic 


dstblk-1 Jsector mask 


mic' 


_wrall 


equ 


0 


; w ri te to allocated 


mic 


_wrd i r 


equ 


1 


Jwrite to directory 


mic 


_wrual 


equ 


2 


Jwrite to unallocate 



cseg $ 

; In I t 

i 

mic init: 



Jcalled. from INIT 



IF 


master and not 


loade r_bios 


cli 




Jdisacle all 






J maskable 






» i nterrup ts 


mov 


a 1 , mi c_mode2_0 


_out Jinitialize to mode 


out 


mic_porte ♦ a 1 


J0 and 2 


mov 


ai ,mic_ack_of f 


J insure acknowledge 


out 


mic_porte ,al 


; i s off 



mic_ini t_l : 
mic init 2: 



mov a 1 , mic_s t r b_of f 
out mic_porte,al 
mov a 1 ,mic_en_s el 
out mic_portD,al 
mov bx, offset micrst 
call pmsg 
mov cx,lfc? 
mov ax, 27777 
dec a x 

jnz mic_init_2 
dec cx 

jnz mic_init_l 
call mic__status 
cmp a l ,mic__s tnard 
jz mic_init_3 
mov bx, offset micrst 
call pmsg 



Jinsure strobe 
? 1 s off 

tset select and 
; ena file 

msgjoutput reset 
jwait 1 second 



;f?et tne status 

;t lien return 
errJoutput error 



load tne vector table for 



tne interrupt nar.iler 



mic init 3: 



Jwant to address 
;absciute 0 



pu s n e s 
mov ax,0 
mov es ,a x 

mov ax, offset mic_int_70 ^interrupt number 
mov es :mic_ip_70 , ax 
mov es :mic_cs_70 , cs 
pop es 



; store in st ptr 
Janl cs value 
Jrestore extra se± 



initialize tne interrupt controller 

mov al,mic_icwl 
out mic_pic_po r tl , al 
mov ai,mic__icw2 
out mic_pic_po rt2, ai 
mov al,mic__icw4 
out mi c_pic_po rt2 , al 
mov al,nic_ocwl 
out mic oic pcrt2,ai 



2 



? c o n t r c 1 word 
; o u t pu t it 
Jcontrol word 
? output it 
Jcontrol word 4 
? o u t pu t it 
; se t rnasit register 



initialize tne timer and set tne status byte 



pusn es 

mov ax,cmemseg 
mov es,ax 

mov mic_s tat_by te , 0?fn 
pop es 

mov a 1 ,mic__mode_cn tl 
out mi c_mode_po rt , al 
mov a 1 ,mic_ls b_value 
out mic_count__port , al 



; s a v e extra seg 
? to address common 

J any non- zero vai 
Jdore witn status 
?set mole 

flow count value 
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; now set up 

» 

mic int 70: 



mov a 1 ,mi c_ms b_va lue 
out mic_count_port ,al 
sti 
re t 

tne interrupt nandler 



pusn ax 



jnign count value 
Jstart timer 
Jrestore ints 
Jand return 



Jsave state 



set up local stacK for interrupt nandler 



mic wr 1: 



mic wr 2: 



mic_read_l : 
mic read 2: 



mov sav_ptr,s? >save six. pointer 

mov savjeg,5s jsave segment re? 

mov sp, offset int_oase J set local pointer 
mov ax,cs jset local segment 

mov ss ,ax 
pusn es 
pusn ox 
pusn cx 
pusn ix 

mov ax t cmemse£? JmaKe common 

mov es,ax Jaddressaoie 

loc£ mov ai.mic stat oyte Jcnecit status 



cmp a 1 , 

jnz mic_term_2 
mov a 1 ,mic_cmd_oy t e 
ana a 1 ,mic_cmd_mas k 
cmp ai,02 
jz mic_read_l 
call mic_send 

call mic_status 

test al f mic_masK 

jz mic_wr_l 

test a 1 ,mic_a t tn_masic 

jnz mic_term 

mov dx ,512 

xor bx,bx 

mov a 1 ,mic_cuf f [ bxj 
call mic_data_out 
i n c D x 
dec dx 

jnz roic_wr_2 
jmp mic_wr_l 



call mic_send 
call mic_status 
test al,mic_masK 
jz mic_read_2 



; act ion needed? 
; no tnen return 
Jread or write? 

; read? 

Jmust be write 

Jffet status 
Jdreq. or attn? 
Jieep cne citing 
Jwas it attn? 
Jye s, ail done 
Jset counter 
Jclear dx 
Jsend data 



Jcnec£ status 
if or final result 

Jsend command 
; ge t status 
Jdrsq or attn? 
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test ai ,mic_a t tn_mas& 


Was it attn? 




jnz mic_term 


>yes ,a 11 lone 




nov lx, 512 


;must ce dreq 




xor bx, bx 


, 'clear bx 


mic_reaa_3 : 


call rnic_lata_in 


;get lata 




mov mic_ouf f [bxj , al 


;store it in Duffer 



inc bx 
dec ax 







jnz mi c read_3 


; continue 






jmp mic_read_2 


Wet status 


mic_ 


term : 


call rric_busy 
call mic irly 


Wait on cntrl 






call mic data in 


Wet termination 






and al,e?ft 


flower 4 only 






cmp al , fcjtfn 
jz mic_term_l 


y succe ss? 






mov m i c _s t a t _ b y t e W f f n 
jmp mic_term~2 


Jindirate failure 


mic_ 


term_l : 


mov mic stat byteWan 


findicate success 


mi c_ 


term_2 : 


pop IX 
pop cx 
pop bx 
pop es 


jrestore all regs 


> 


restore 


oil stacK segment and pointer 






mov sp,sav_ptr 
mov ax,sav”se£ 
mov s s , a x 




y 


before 


final pop of ax reload counter 






mov al ,mic_ls b_value 
out mic_count_port ,al 


fleast sig value 






mov a 1 ,mi c_ms o_va 1 ue 








out mic_c ount_por t , al 
pop ax 


Jcounter starts 






i ret 




i 




ENDIF 


Jmaster and not 








; loader_bios 






IF not master 




f 






? no special action 






ret 





END IP 



IF not loader_cios 



; HOME entered from HOMS jump 

;nome tne selected disfc 
mic_nome : 

mov al , mic_ns twr t 
test ai,ai 
jnz mic_nomed 
mov mic_nstact f 0 
mi c_nom ed : 
re t 



jcnecK for pending write 
Jclear dost active flag 



; SELECT DISS 
mic_sel dst: 

Jselect diss 
mov cl f unit 
mov mic_se£dsic t cl 
»* i s tnis tne first 
test DL , 1 
jnz mic_selset 
Jtnis is tne first 
mov mi c_ns tac t ,0 
mov mic_unacnt , 0 
mic_selset : 
re t 



entered from SELDSS jump 



activation of tne drive? 
JlSD = 0? 

activation, clear nost cuff 



; SELECT TRACS entered after SETTRK jump 

mic_se t trie : 

Jset tracx given dy registers CX 

mov mi c_sefctr ic ,C X JtracK to sees 

ret 



; SELECT SECTOR entered after SETSEC jump 

mic_set sec : 

Jset sector given t)y register cl 

mov mi c_sexsec , cl Jsector to sees 

re t 



J READ entered after READ Jump 

mi c_ read : 

jread tne selected CP/M sector 

mov mic_unacnt,0 Jclear unallocated 
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m o v mic_readop,l »read operation 

mov mlc_rsfiag,i ;must read data 

mov mi c_vr type ,mi c_wrual Jtreat as unalloc 

jmp mic_rwoper ^perform tne read 



WRITE 



entered after WRITE jump 



mic_wri te : 

fvrite tne selected CP/M sector 

mov mic_readop,0 Jwrite operation 

mov mi c_wrtype ,cl 

cmp cl,mic_wrual , ‘write unallocated? 

jnz mic_cnKuna Jcnecx for unalloc 

» 

; write to unallocated, set parameters 



mov mic_unacnt , (mic_DiK:siz /1R£ ) ;next unalloc re~s 
mov al ,mi c_sexdsx Jdisx to seex 

mov mi c_unadsx,a 1 Jmic_unadsit = mic_sexdsX 

mov ax ,mi c_sext rx 

mov mi c_unat rx ,ax »’mic_unatrx = mic_sextrx 

mov al ,mi c_sexsec 

mov mic unasec,al »mic unasec = mic sexsec 



— Sector BlocX/DeDlccx Suoroutines 



mic 



cnxuna : 

;cnecX for write to unallocated sector 



mov bx, offset mic_unacnt 

mov al,mic_una ! test al,al 
jz mic_alloc 



; point "UNA" 

;at UiUCNT 

;ar.y unallc remain? 

»’sxip if not 



more unallocated records 
dec al 

mov mic_una,al 
mov al ,mic_sexdsX 
mov EX, offset mic_unadsx 
cmp al,mic_una 

jnz mic_alloc 

disxs are tne same 
mov AX, mic_unatrx 
cmp AX, mic_sextrx 
jnz mic_alloc 



remain 

;mic_unac nt 
;= mic_unacnt“l 

Jsame iisx? 

?mic_s exdsx 
;= mic_unadsX? 
;sxip if not 



Jsxip if not 
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; traces are tne same 

mov al ,mic_sessec 


Jsame sector? 


t 

mov £X f offset mic_unasec 


Jpoint una 
Jat mic_unasec 


t 

emp ai,mic_una 
jnz mic_alloc 


;mic_sessec 
; = mi c_unas ec? 
;sKip if not 



mated, move to next sector for future ref 



inc mic_una 

mov al,mic_una 
emp al ,mic_cpmspt 
jo mic_noovr 


;mic_unas ec 
> = mic_unasec+l 
; end of tracs? 

;c ount CP/M sectors 
Jsieip if be lew 


; overflow to next tracs 

mov mic_una,0 
inc mic_unatrs 


»mic_unasec = 0 
fmic _u na t rs 
;= mic_unat rs+1 


» 

mic noovf: 





;matcn found, marie as unnecessary read 

mov mic_rsflag,0 ;mic_rsflag = 0 



jmps mic_rwoper 
i 

mic alloc: 


? perform write 



»not an unallocated record, requires pre-reac. 
mov mic unacnt,55 Jmic unaent = 0 



mov mic_rsflag,l 


>mic_rsflag = 1 
Jdrop throuffft 
» to rwoper 


i Common code for READ and rfP.ITE 


follows 


mi c_rvo per : 

jentsr nere to perform tne 
mov mic_erfla£,0 
mov al, mic_sessec 
mov cl, mic_secsnf 
snr al,cl 


? read /write 

i no errors (yet ) 

; compute nost sector 


mov mic_se*nst ,ai 


Jnost sect to see£ 


Jactive nost se-tor? 
mov al , l 

x c ng a l , m i c_n s t a c t 
test al , al 
jz mic_fiinst 


Jalways becomes 1 
>*was it already? 

; f i 1 1 nost if not 


;nost buffer active, same 


as sees: buffer? 
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mov al ,mi c_seicls )e 
cmp al , mi c_ns tis k 

jnz mic_nomatcn 

Isame lisle, same 
mov ax,mic_ns ttrie 
cmp ax ,mic_seirtrK 

jnz mic_nomatca 

Isame lisle, same 
mov al ,mic_seiens t 
cmp al ,mi c jis tsec 

jz mic_matcn 
mic_nomatcn: 

Iproper lisle, but 
mov al, mic_nstwrt 
test al,al 
jz mic_fiinst 
call mic_writenst 

I 

mic_f ilns t : 

Imay nave to 
mov al ,mi c_seielsie 
mov ax ,mic_selctr£ 
mov al , mi c_se lens t 
mov al ,mi c_rs f lag 
test al,al 
jz mic_fiiastl 
I 

call mic_reainst 

mic_f ilnstl: 

mov mic_as twrt ,0 



I mic_s eieis le 
1 = mic nstdsie? 



trade? 

most trade same 
las seeie trade 

trade, same buffer? 

; mic_se tns t 
I = mic_nstse<~? 
ls*eip if maten 

not correct sector 

>"lirty" buffer ? 
; n 0 , don't write 
lyes , clear 
most buff 



fill tne no st buffer 
! mov mi c_ns tlsic ,al 
! mov mi c_ns t trie ,ax 
! mov mi c_ns ts ec ,al 

meed to real? 



?yes , if 1 



Inc penning wrt 



mic_mat cn : 

Icopy lata to or from buffer depending on "mic_readop 
mov al ,mie_seiesec Imasie buffer numte 

and ax,mic_secmsie 

movcl,? ! snl ax, cl isnirt left? 

; (* l^e = 2**?) 

I 

I ax nas relative nost buffer offset 



all ax, offset mic_nstbuf 

mov si, ax 

mov li , Ima _al r 



lax nas tuff adlr 
Iput in si reg 
I user buffer is 
liest if realop 
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pusn DS ! pusn ES 
mov ES,dma_seg 



mov cx, 128/2 
mov al ,mic_readop 
test al,al 
jnz mic_rwmove 

J 

; write operation, mars 

nov mi c_ns twr t , 1 

xcng si * di 
nov ax,DS 
mov ES,ax 
mov DS,dma_seg 

7 

mic_rwmove : 

cia ! rep movs AX, AX 
pop ES ! pop DS 



;save seg regs 

J set destseg 
; to tne users seg 
JSI/DI and DS/ES 
; 1 s swapped. 

» i ±* write op 
jlengtn of move 

; wni eft. w ay? 

Jsitip if read 

and switen direction 

Jmi c_nstwrt = 1 
J(dirty Duffer now} 
Jsource/cest swap 



J s e tup DS , ES 



Inove 15 bit words 
Jrestcre seg regs 



data nas been moved to/from nost 
enp mi c_wr type ,mic_wrd i r 
mov al ,mic_erf las- 
jnz mi c_re turn_rw 



Duffer 

; write directory? 
Jin case of errors 
»no processing 



J '•lear dost Duffer for directory 

test ai,ai 
jnz mi c_re turn_rw 
nov mic_nstwrt,£ 
call mic_writenst 
nov al ,mi c_erf lag 
mic_re turn_rw : 
ret 



write 
Jerrors? 
js^ip if so 
? buffer written 



MICROPOLIS HARD DISK SUBROUTINES 

j,t j,; j,; Jit V V V V W J? »r V V V V S£ V s? V -V ^ V V V 



mi c_readns t : 

mov mic_dir,0 Jinaicate read or write 

J ——————————— — 

ENDIF Jnot loader_bios 

IE master and not loader Dios 
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cli Jclear int to os sure 





call set_eommon 


;?et resource 




ENDI I 


Jmaster and not 
; 1 oader_oi os 




II not master and 


not loader_bios 




call request 


;se t resource 




SNDIF 

II not loader_bios 


; no t master and not 
; loader 




mov nl , mic_rd_cmd 


»set up read cmd 




call mic_set 


»set up parameters 




call mic_trans 


; transmit tr.em 




call mic_t rans_buf f 


je’et tne buffer 




call release 
mov al , mi c_re sul t 


Jrelease resource 




mov mi c_erf lag ,a 1 


Jestatlisn error 




ENDII 


>not ioader_bios 




II master and not 


loader_bio s 




s t i 


; res tore int 




ENDII 

IF not loaier_0ios 


Jmaster and not 
; loader 




re t 





mic_wri tenst : 

nov mic_lir*l 
mov al ,mic_ns t_ds£ 
cmp a l , use r 
jnz mic_wrt_err 



; indicate rd/wrt 
;clc for valid wrt 

5 indicate error 
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SNDIF »not loader_cios 

IF master and not loader_Dics 



cli ;clear to be sura 

call eet common Jsret resource 



ENDIF fmaster and not 

; 1 oader 

IF not master and not loader_bios 



call request 



; ge t resource 



} 


ENDIF 

IF not loader_cios 


»not master and not 
; 1 oade r 


f 


mov bl » mi c_wr_cmi 


?set up write cmd 




call mic_set 


;set up parameters 




call mi c_t rans_Duft 


t transmit our ter 




call mic_trans 


^transmit parameters 




call release 
mov al ,mi c_resul t 
mov mi c_eri'laff,al 
jmp mic_vrt_ret 


•release resource 


mic_wr t 


_err: 

mov bx, offset mic_wrt_msg 






call pmss 


•’error message 




mov mic_erf lag ,V ? fn 


Jindicate tne error 


mic_wrt 


_re t : 






ENDIF 


Jnot loader_bios 



IF master and not loader_bios 


s ti 


; restore int 


ENDIF 


;mas ter and no t 




; l oade r 
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IF not loader_bios 



re t 



mic 



set : 

pusn es 
pusfi ax 
pusn cx 
pusn bx 

mov axtcmemse? 
mov es,ax 

mov mi c_cml_by te , bl 

mov bl ,mic_ns t _ds£ 

sub bl , 7 

mov cl , 4 

sni bl,cl 

mov mi c_parmi , bl 

mov cx,mic_ns t_trtc 

mov mic_parm^,cl 

mov mic_parm3,cn 

mov cl ,mi c_ns t_sec 

mov mic_pa rm4 ,c 1 

mov mic_parm5,l 

mov mic_parmb,0 

mo v mi c_ 20 _by te , 

pop bx 

pop cx 

pop ax 

pop es 

ret 



JmaKe common addr 

; type of command 
;adj for nead nu.m 



Junit and nead set 



; t rio now set 

;sector set 
Jonly one to process 
;not used 
;set ^o byte 
;restore regs 



mic_trans : 

pusn es Jsave re^s 

pusn ax 

mov ax,cmemseg jmaxe common addr 

mov es,ax 

mov mi c_s tat_byt e ,0 Jindicate ready 



EN DIF ;not lcader_bios 

IF master and not loader bios 



int ?e 



; force interrupt 
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FNDIF 



; master and not 
; loader 



IF not loader bios 



mic_trans_l : 

7 ! o v al ,mic_s tat_byt e 
cmp al,0 
jz mic_trans_l 
cnp al f 0an 

jz mic_success_wr it e 
mov mi c_resui t ,0f fn 
Jmp mic_f ai l_wri te 
mic_success_wri te : 

mov mi c_resu 1 t , 00n 
rric_f ai l_w ri te : 
pop ax 
pop es 
re t 



;§et status 
; done? 

; success V 

; indicate failure 



mic_t rans_ouf f : 

pusn es ;save regs 

pusn ds 
mov ax,cs 
mov es,ax 

mov di.offsst mic_nstbuf 
mov ax.cmemseg 
mov ds,ax 
mov si,6100n 
mov cx , 256 
c.mp mic_iir,0 
jz mi c_trans_ tuf f _1 
xcng si,di 
mov ax,ds 
mov es,ax 
mov ax,cs 
mov ds,ax 
mi c trans_buf f _l : 
cld 

rep movs ax ,ax 
pop ds 
pop es 
re t 



ENDI F 



»not loader_oios 
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Jroutines are only used 

IF MASTER and not loader_dios ; by interrupt nanlier 



Subroutine: mic_status 
JEntry Conditions: none 

JExit Conditions: ai contains status of di sit 
Registers altered: al 
Subroutines called: none 
; Descri pti on : 

; Tnis subroutine reads and returns tne current 

Jvalue of tne ^icropolis disit controller's status port. 



mic status: 



mov al,mic_stat 
out mic_porte,ai 
mov a 1 , mic_rs t r d_o n 
out mic_port b , a 1 
mov al ,mic_s tr b_on 
out mic_porte,al 
mov al ,mic_s t r b_of f 
out mic_porte,al 
mov a 1 ,mi c_rs t r b_o rr 
out mic_portb,al 
in al ,mic_porta 
re t 



jenanie status line 
Jturn on read 
» la ten tne status 

Jturn off real 
; bring in status 



Subroutine: mic_send 

JEntry conditions: parameters are calculated and in 
; tne byte variables 

JExit conditions: parameters and command nave been sent 

; Registers altered: none 

Subroutines called: mi c_busy , mic_ordy , 



description : 



mic_irdy ,mic_omd_out ,mi c_da ta_cut 



; Tne command byte, six parameter bytes 

;and tne go byte found in tne data area are sent to 
;tne disit controller. 



mic send: 



mic send 1 : 



call mic_busy 
call mic_ordy 
call mi c_cmd_ou t 
xor bx,bx 
mov di,7 
call mic_busy 
call mic_ordy 
mov a 1 f mic_parml t bxj 
call rric da ta out 



; wai t for cntri 

Jsend out cmd 
Jciear bx 
;set count value 
; w a i t for cntri 

Jget parm 
Jsend it 
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;done? 

isel another 



i n c b x 
dec dl 

jnz mic_senl_l 
ret 



i — — — 

Subroutine: mic_cmd_out 

» Entry conditions: 'ordy' signal nas been issued by tne 
; disK controller and 'cmd^oyte' 

? contains tne command to be sent. 

»Exit conditions: none 
fReffisters altered: none 
Subroutines called: none 
; Descri pt i on : 

; Tne command in tne byte variable 'cnd_cyte' 

; i s sent to tne disK controller. 



mic_cmd_ou t : 

pus 
mcv 
ou t 
mo v 
out 
mo v 
out 
mo v 
out 
mcv 
out 
mo v 
out 
pop 
ret 



. ax 

a 1 , mic_cmd_by te 
mic_porta , al 
a 1 ,mi c_cmd 
mic_por te , al 
a 1 ,mic_acK:_on 
mic_porte ,al 
a 1 , mi c_vs trb_on 
mic_port b ,al 
al f mic_ws tro_of f 
mio_portb f al 
al ,mi c_acK_off 
mic_por te ,al 
ax 



fsave ax 

; to bi-directional 
; enable cmd line 

Jactivate output 
; buf fe r 

; pu l s e tne write 
Strobe 



;de-activate tne 
; out put buffer 



Subroutine: mic_data_out 

jEntry conditions: 'ordy' signal nas been issued by tne 
t diSK: controller and al contains value 

f to be sent. 

;Exit conditions: none 
>Ref?isters altered: none 
Subroutines called: none 
; Desc ri pt i on : 

; A byte of lata is output to tne rticropolis 

Jdisic uni t . 

» 

mic_da ta_out : 

pusn ax Save ax 

out mic_porta,al ; to bi-directional 

mov al,mic_iata Snabie data line 

out mic_porte f al 
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mov al ,mic_acK_on 
out mic_porte t al 
mov al ,mic_wstrb_on 
out mic_porto t al 
mov al , mic_ws t r b_o ff 
out mic_porto ,al 
mov a 1 , rric_ac£_of f 
out mic_porte,ai 
pop ax 
re t 



Jactivate output 
; bu fie r 

Jpulse tne write 
; s t r o b e 



? de-ac t i va te 
; out put Duffer 
Jrestore value 



jSubroutine: mic_iata_in 

JEntry conditions: 'irdy' signal Has been issued by tne 
; disk controller 

; Ex i t conditions: al contains data byte 
;Ref?isters altered: al 
; Su brou tines called : none 
JEescri pti on : 

; A byte of data is input from tne Picropolis 

Jdisk unit . 

J 

mi c_dat a_i n: 

mov al,mic_data 
out mic_porte,al 
mov al ,mic_rstr b_on 
out mic_portb,al 
mov al,mic_strc_on 
out mic_porte,al 
mov al ,mic_s tr b_of f 
out mic_porte,al 
mov al ,mic_rs t r b_off 
out mic_portb,al 
in al ,mic_por ta 
re t 



Jenable data line 

;turn tne real 
lor. 

?latcn tne lata 



Jturn off tne 
;reao signal 
; brinsr in data 



Subroutine: mic_busy 
Entry conditions: none 

Exit conditions: disk controller nas issued 'not busy' 
signal 

Registers altered: none 
Subroutines called: mic_status 
Desc ri pti on : 

Tne executing program will wait nere 
until tne disk controller issues tne 'not busy' signal. 



mic_busy : 



mic_busy_l : 



pusn ax 

call mic_status 
test al ,mic_busy_masis: 
jz mic_ousy_l 



Jsave ax 
;get status 
; busy? 
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pop ax 
ret 



JSubroutine: mic_irdy 

JEntry conditions: none 

JExit conditions: disK controller nas issued 'irdy' 

; signal 

JP.egisters altered: none 
JSubroutines called: mic_status 
;Description : 

; Tne execution of tne program will 

Jwait Here until 'iriy' is issued by tne controller. 



mic_irly: 


pusn ax 


jsave ax 


mi c_irlv_l : 


call nic_status 


J get status 




test al f mic_i ray_mas£ 
jz mic_irdy_l 


; ready? 




pop ax 


; restore ax 




re t 


; ready now 



JSubroutine: mic_oriy 
JEntry conditions: none 

jExit conditions: disn controller nas issued tne 'or cy ' 



; signal 

JRegisters altered: none 
jSubroutines called: mic_status 
; Descri pti on : 

J Tne execution of tne program will wait 

jnere until 'ordy' is issued by tne controller. 



mic_orly : 



mi c_ori y_l : 



pusn ax ; save ax 

call mic_status Jget status 

test al ,mic_o rdy_masK ; ready? 

jz mic_ordy_l Jnot yet 

pep ax 
ret 



^Subroutine: get_common 
ge t_common : 

pusn es 
pusn cx 

mov ax,cmemseg 
mov es f ax 
call ticket 
emp bx t server 



Jmaxe common 
Jmemcry addressable 
Jsret ticKet number 
; i f t i cite t = server 



lbtt 



je get_common_4 Jthen lone 

m ov cx,dcount » delay here 

get_common_2: 

dec cx 

jnz get _common_2 
Jcnecff Micropolis status byte 



cmp mic_s ta t_bv te , 00n 
je get_common_3 
cmp dx, server 
je get __common_4 
mov cx f icount 
jmp f?et_common_2 



;a status Dyte of 0 needs an interrupt 
ge t_common_3: 

int 70 Jexecute int 

mov cx f dcount 
jmp get_common_2 

se t_common_4 : 

po p cx 
pop es 
ret 



ENFIF 

IF not loader bios 



,’end of routines 
Jused by interrupt 



^icropolis Interface FacKet 



3 '—PS 

org 


1191 






mic_ip_70 


rw 


1 




mi c_cs_70 


rw 


1 




org 


5000n 






mic_s ta t_byt 


e rfc 


1 


Jstatus byte 


mi c__cmd_by te 


r b 


1 


» command code 


mi c_parml 


rb 


1 


; parameters 


mic_parm2 


r b 


1 




mi c_parm3 


rb 


1 




mi c_pa rm4 


rb 


1 




mic_parmb 


r b 


1 




mic_parm6 


rb 


1 




mic^ffo^byt e 


r b 


1 
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or g 


5100n 








mic_buf f 


r fc 


512 




; buf fe r for da ta 












» 


:ll3^ VaiiQUJ.C3 






cseg 


s 








micrst ms? 


db 


cr , 1 f , 'Microcoli s Controller 




d b 


Resetting 


. . . 


.0 


micrs t_err 


i b 


cr.lf, Micropolis Disit Reset Error 




d b 


cr , If , 'Use 


of 


Drives K - L will 




CL b 


'produce unpr 


edi ct a ole resul ts ' 




d fc 


cr, If , If 






^ic wrt msg 


d o 


cr , if , 'Wri te 


Access not 




i d 


'Permitted 


on 


Tnis 




d b 


'Drive ' f 0 






; space for 


local 


s tacit 






int stact 


rw 


100 






int_base 


equ 


offset $ 






sav _P lr 


rw 


1 






sa v_seg 


rw 


1 






mic_dir 


r b 


1 




;rd/wrt direction 


mic_resul t 


rb 


1 




Jresult of rd/wrt 


mic_seit_dsit 


r b 


1 




Jseeit disit number 


mi c_seK_t tk 


rw 


1 




Jseeit trac& number 


mi c_selc_se c 


rb 


1 




Jseeit sector number 


mi c_nst_as£ 


r b 


1 




Jnost disit number 


mic_ns t_t r& 


rw 


1 




Jnost trac£ number 


mic_ns t__sec 


r b 


1 




jnost sector number 


mic_se£_ns t 


rb 


1 




Jseeit snr micsecsnf 


mi c_ns t _ac t 


rb 


1 




jncst active f la? 


mic_nst_wr t 


rb 


1 




jnost written flag 


mic”una_cn t 


rb 


1 




; unalloc rec cnt 


mic_una_dstt 


r b 


1 




Jlast unalloc disit 


mic_una_trit 


rw 


1 




Jlast unailcc tracic 


mic_una _sec 


r b 


1 




Jlast unalloc sect 


mic_erf lag 


rb 


1 




Jerror reporting 


mic_rsf la? 


rb 


1 




Jread sector flag* 


mic_readop 


r d 


1 




J 1 if rd operation 


mic_wrtype 


rb 


1 




Jwrt operation type 


mic_ns t buf 


rb 


mic_ns t siz 




jnost buffer 



ENDIF 



APPENDIX F 



PROGRAM LISTING OF CPKMAST.DEF 



The following disic definition statements were used witr 
tne GSNDEF facility to generate tne di sa parameter ta Dl es . 



disKs 12 

disKdef 0,1.26,0,18324,71,32,45,2 
disKdef 1 ,1 ,26 ,5 ,1024,243 ,64,64,2 
di s.tdef 2 , 1 

dissdef 3,1 ,155,0 ,16364,27b, 126 ,0,1 
lisAdef 4,3 
disidef 5,3 
di sKcef 6 , 3 

disKdef 7,0,95,0 ,15584,435,256,0,0 

disKdef 6,7 

disKdef 9,7 

disKdef 10,7 

disKdef 11,7 

endef 



APPENDIX G 



PROGRAM LISTING OP CPK^AST.LIR 

Tne following CPM^AST.LIE file is created by me GENDEF 
utility ween tne CPMMAST.DSF is used as tne source file. 



» 




DISKS 12 


ipbase 


e^u 


S 


dpe0 


dw 


xi t0,0000n 




dw 


i?000n ,0000n 




d w 


di rout* ,dpb0 




dw 


csv0 , aiv0 


dpel 


dw 


xl tl , 00000 




dw 


0000n ,Z0e0n 




dw 


di rouf ,dpoi 




dw 


cs vl ,a lvl 


dpe2 


dw 


xit2, 0000*1 




dw 


00000 ,00000 




lw 


di rouf ,dpb2 




d w 


csv2 , a iv2 


dpe3 


dw 


x 1 13 ,00000 




dw 


eezzn ,000en 




dw 


di rtmf ,dpo3 




dw 


csv3 , alv3 


dpe4 


dw 


slt4, 00000 




d w 


0000n, 0000n 




d w 


di r Du f ,d p b4 




dw 


cs v4 ,alv4 


dpeb 


dw 


xitb.zeezn 




dw 


0000n ,0000n 




dw 


ai rouf ,d pt>5 




d w 


csvb,alvb 


lpe6 


dw 


s 1 16 , 0000n 




d w 


00000 ,Z000n 




aw 


di r Duf ,dpb6 




dw 


cs vb , a ivb 


dpe7 


dw 


rlt7,0000n 




d w 


0000 n , 00000 




dw 


di rouf ,dpb? 




dw 


csv7,alv7 


dpeB 


d w 


si tB , 0000n 




dw 


0000n ,0000n 




dw 


di r tu f ,dp D8 



Rase of Diss Parameter Blccss 

Translate Tacie 

Scratcn Area 

Dir Buff, Parm Blocs 

Cnees, Alloc Vectors 

Translate Table 

Scratcn Area 

Dir Buff, Parm Blocs 

CnecS, Alloc Vectors 

Translate Tacie 

Scratcn Area 

Dir Buff, Parrr Blocs 

Cnees, Alloc Vectors 

Translate Table 

Scratcn Area 

Dir Buff, Parm Blocs 

cnees. Alloc Vectors 

Translate Table 

Scratcn Area 

Dir Buff, Parm Blocs 

Cnees, Alloc Vectors 

Translate Table 

Scratcn Area 

Dir Buff, Farm Blocs 

Cnees, Alloc Vectors 

Translate Table 

Scratcn Area 

Dir Buff, Parm Blocs 

CnecS, Alloc Vectors 

Translate Table 

Scratcn Area 

Dir Buff, Parm BiocS 

Cnees, Alloc Vectors 

Translate Table 

Scratcn Area 

Dir Buff, Parm Blocs 
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dw 


csvB , alv8 


lpe9 


dw 


xlt9,0000n 




dw 


0000n ,e000n 




dw 


di rbuf ,d pB9 




dw 


csv9 , alv9 


dpel2 


dw 


xi tie, 0000b 




dw 


0000n ,0000d 




dw 


di rbuf t dpbl0 




dw 


csvl0 ,alvl0 


dpell 


dw 


xi til ,0000n 




dw 


0000n ,0000n 




dw 


di rbuf ,dpbll 




dw 


cs vll ,a lvii 


J 




DISKDEF 0,1, 


dpb0 


equ 


offset $ 




dw 


26 




db 


3 




d b 


7 




db 


0 




dw 


70 




dw 


31 




d b 


128 




db 


0 




dw 


0 




dw 


2 


xlt0 


equ 


offset s 




db 


1,2,3, A 




db 


5,6,7, 8 




db 


9,10,11,12 




db 


13,14,16, 16 




db 


17,18,19,20 




db 


21 ,22 ,23 ,24 




db 


2b ,26 


a is 0 


eq u 


9 


CS S0 


equ 


0 


1 




DISKCEF 1,1,: 


dp bi 


ej u 


offset $ 




d w 


26 




d b 


3 




d b 


7 




d b 


0 




dw 


242 




d w 


63 




d b 


192 




db 


0 




dw 


15 




dw 


2 


x 1 1 1 


equ 


offset $ 




db 


1,7,13,19 




d b 


26,6,11,17 




db 


23,3,9,1b 



JCnecs, Alloc Vectors 
JTransiate Table 
JScratcn Area 
;Dir Buff, Pam .Blocs 
;CnecS, Alloc Vectors 
JTransiate Taole 
JScratcn Area 
;Dir Buff, Farm Blocs 
JCnecs, Alloc Vectors 
JTranslate Table 
JScratcn Area 
jDir Buff, Farm Hock: 
JCnecs, Alloc Vectors 
3,0,1024,71.32,0,2 

jDiss Parameter Blocs 
jSectors Per Tracs 
jbiocs snift 
J Blocs , M asK 
JJGxtnt . w asK 
JDiss Size - 1 
directory *1ax 
; Aiioc0 
; Aiio ci 
J Cnees Size 
; Off set 

; Translate Taole 



^Allocation Vector Size 
JCnecs Vector Size 
3,b, 1024,243,64,64,2 

JD iss Parameter Blocs 

JSectors Per Tracs 

JBlocs Snift 

; 31ocs ^ass 

JSxtnt f*ass 

JDiss Size - 1 

jDirectorv f^ax 

J A1 1 o c0 

J Alio cl 

JCnecs Size 

J0f fset 

translate Taole 
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1 b 


21 ,2,8,14 






d b 


20, 2b, b, 12 






db 


18,24,4,10 






ib 


lb, 22 




alsl 


equ 


31 


JAllccation Vector Size 


cssl 


eq u 


16 


.ChecJE Vector Size 


t 




DISKDEF 2,1 




lpb2 


equ 


ipbl 


.Equivalent Parameters 


ais2 


equ 


alsl 


JSame Allocation Vector Size 


css2 


equ 


cssl 


;Sarre Cnecxsum Vector Size 


xlt2 


equ 


X 1 1 1 


?Same Translate Table 


t 




DISOEF 3,1 ,156, 


0,16384,275,128,0,1 


lpb3 


equ 


offset s 


;Dis& Parameter BiccK 




Iw 


156 


JSectors Per Tracit 




d b 


7 


; Block Sn ift 




d b 


127 


;31ocK Mas* 




d b 


7 


.Sxtnt Mas k: 




dw 


274 


;Disit Size - 1 




dw 


127 


directory Max 




a b 


128 


i A1 lO C0 




lb 


0 


; Aiioci 




dw 


0 


f'Cnecx: Size 




dw 


1 


.Offset 


Xl t3 


eq u 


offset S 


^Translate Table 




lb 


1.2, 3, 4 






lb 


5, 5, 7, 8 






lb 


9,10,11 ,12 






lb 


13,14,15,16 






lb 


17 ,18 ,19 ,20 






db 


21 ,22,23,24 






ib 


25,26,27,28 






lb 


29,30,31,32 






1 b 


33 ,34,35 ,3b 






d b 


37,38,39,40 






lb 


41 ,42 ,43 ,44 






lb 


45,46,47,48 






lb 


49 ,30 ,51 ,52 






lb 


53,54,55,56 






lb 


57 ,58 ,59 ,60 






lb 


61,62,63,64 






lb 


65 ,56 ,57,68 






lb 


69,70,71 ,72 






1 b 


73,74,75,76 






d b 


77,78 ,79,80 






ib 


81,82,83,84 






db 


85,86 ,87,88 






i b 


89 ,90,91,92 






1 b 


93,94 ,95,96 






db 


97,98,99,100 






1 b 


101,102,103,104 






1 b 


105,106,107,108 
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do 


109 ,110,111 




d 0 


113,114 ,115 




d o 


117,118,119 




do 


121,122,123 




10 


125,126,127 




CL 0 


129,130,131 




db 


133,134,135 




db 


137,138,139 




d 0 


141,142,143 




d b 


145 , 146 , 14 7 




db 


149,150,151 




db 


153,154,155 


als3 


equ 


35 


css3 


equ 


0 


J 




DISK DDF 4,3 


dp 04 


equ 


dpb3 


als4 


equ 


a 1 s3 


CSS4 


equ 


c s s 3 


Xl t4 


eq u 


xl t3 


J 




DISKDEP 5,3 


dp 05 


equ 


ip 03 


ais5 


eq u 


ais3 


css5 


equ 


cs S3 


xlt5 


eu u 


xlt3 


J 




DISKDPF 6,3 


dpo6 


equ 


dpb3 


a ls6 


equ 


als3 


css6 


eq u 


css3 


xl 16 


equ 


xl t3 


J 




DISKDEF 7,0 


ip 0 7 


equ 


offset S 




aw 


95 




db 


7 




lb 


127 




db 


7 




d w 


434 




dw 


255 




db 


128 




db 


0 




lw 


0 




dw 


0 


xlt7 


equ 


offset S 




db 


0,1, 2, 3 




a b 


4, 5, 6, 7 




db 


8,9,10,11 




lb 


12,13,14,15 




do 


16,17,18,19 




db 


20,21 ,22,23 




db 


24,25,26,27 




db 


28 ,29 ,30 ,31 




d o 


32,33,34,35 



J Alio cation Vector Size 
jCnecK Vector Size 

Equivalent Parameters 
JSame Allocation Vector Size 
JSame Cnee its urn Vector Size 
JSame Translate Taoie 

Equivalent Parameters 
JSame Allocation Vector Size 
JSame CdecKSum Vector Size 
JSame Translate Taoie 

JSquivalent Parameters 

JSame Allocation Vector Size 

JSame CnecKsum Vector Size 

JSame Translate Taoie 

, 16334 ,435 ,256 ,0,0 

JDisK Parameter BlocK 

jSectors Per Tracs 

JBlocic Snift 

JBIock liasjc 

JJSxtnt *asx 

J Disk Size - 1 

J Directory ^a z 

J A llo c0 

J Allocl 

JCnecK Size 

jOff set 

JTranslate Table 



112 

116 

120 

124 

128 

132 

136 

140 

144 

148 

,152 

156 

95,0 
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do 


3b ,37 ,38 ,39 




d o 


42 ,41 ,42,43 




10 


44,45,46,47 




dO 


48,49,52,51 




db 


52,53,54,55 




db 


55,57,58,59 




10 


62,61 ,62,63 




db 


64,65,66,67 




d o 


68,69,70,71 




db 


72,73,74,75 




10 


76,77,78,79 




db 


80 ,81 ,82,83 




10 


84,85,86,87 




d b 


88,89,90,91 




db 


92,93,94,95 


als? 


ea u 


55 


C S S 7 


equ 


0 


J 




DISKDEF 6,7 


dpb6 


equ 


dp b7 


a'ls8 


eq u 


als7 


esse 


eq u 


CSS7 


xite 


equ 


X 1 1 7 


J 




DISKDEF 9,7 


dD09 


equ 


dp b7 


ais9 


eq u 


ais7 


css9 


equ 


CSS7 


Xl 19 


eq u 


X 1 1 7 


J 




DISKDEF 10, 1 


dp 012 


equ 


dpo7 


a l s 1 2 


equ 


a l s7 


CSS10 


eq u 


cs s7 


xl tl2 


eq u 


xlt7 


J 




DISKDEF 11, 1 


do oil 


equ 


dp 07 


alsll 


equ 


ais7 


cssll 


equ 


css7 


Xlt 11 


eq u 


xlt? 


J 




ENDSF 


J 

J 


Uninitialized Scrat 


oe^ia t 


equ 


offset $ 


di r Ouf 


rs 


128 


a l v0 


rs 


als0 


cs vfl 


rs 


cs S0 


alvl 


rs 


a Is 1 


csvi 


rs 


cs si 


alv2 


rs 


a 1 s2 


cs v2 


rs 


C S S 2 


a l v3 


rs 


a l s3 


cs v3 


rs 


cs S3 



; Alio cation Vector Size 
jCnecK Vector Size 

J Equivalent Parameters 
;Same Allocation Vectr Size 
JSame Cnecisurr Vector Size 
JSame Translate Table 

Equivalent Parameters 
JSame Allocation Vectr Size 
JSame Cnecfcsum Vector Size 
JSame Translate Table 

Equivalent Parameters 
JSame Allocation Vector Siz 
JSame Checksum Vector Size 
JSame Translate Table 

Jpquivalent Parameters 
JSame Allocation Vectr Size 
JSame Cnec^sum Vector Size 
JSame Translate Taoie 



emory Follows: 

J Start of Sera ten Area 
J Directory Buffer 
J A 1 1 o c Vector 
J C n e c *: Vector 
J Alloc Vector 
JCnec£ Vector 
J Alloc Vector 
JCnecK Vector 
J Alloc Vector 
JCnecs Vector 
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al v4 


rs 


a 1 s4 




» Alloc Vector 


cs v4 


rs 


CSS4 




» Cnectc Vector 


ai v5 


rs 


als5 




JAlloc Vector 


cs vb 


rs 


cssb 




jChecK Vector 


alv6 


rs 


al s5 




» Alloc Vector 


cs v6 


rs 


CSS5 




JCnecic Vector 


alv7 


rs 


al s7 




JAlloc Vector 


cs v7 


rs 


CSS7 




;CneciC Vector 


a 1 vB 


rs 


al sB 




»Alloc Vector 


cs v8 


rs 


CSSB 




jCnecs Vector 


alv9 


rs 


als9 




; Alloc Vector 


cs v9 


rs 


C S S 9 




JCnecK Vector 


a lvl£ 


rs 


aislfif 




JAlloc Vector 


cs v!0 


rs 


CS S10 




JCnecic Vector 


a ivll 


rs 


alsll 




JAlloc Vector 


cs vll 


rs 


cssll 




JCnecK Vector 


endda t 


eau 


offset 


$ 


fSnci of Scratcn Area 


datsi z 


eq u 
d o 


offset 

0 


S-oegaa t 


JSize of Scratcn Area 
fMarics End of Module 
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APPENDIX E 



PROGRAM LISTING OP RXFL0P.A86 



Prog Name : 

Da te : 

Modified, by: 
For : 

Advisor : 

Purpose : 



RXFL0P.A86 (REMEX FLOPPY DISK 
ACCESS C ODE ^ 

5 April 1983 
Mart L. Perry 



Tnesis 


(AEGIS M 


odeli 


ng G 


roup 


) 








Profess 


or Cotto 


n 














Tftis co 


d e is an 


incl 


ule 


rile 


w /i 


n 


C 


PMBIOS 


It cont 


a ins tne 


code 


nec 


es sa 


ry t 


0 


a 


ccess 


Remex f 


loppy di 


s £ dr 


ives 


and 


gen 


a 


ra 


te a 


loader 


for tnem 


• 














Tnis co 


nf igurat 


ion i 


s se 


t f 0 


r CF 


/Y 


logica 


drives 


1 (A: & 


B : ) a 


nd 2 


(C: 


). T 


0 


a 


Iter 


cnange 


code in 


READ 


and 


rfPIT 


E ro 


u 


1 1 


nes . 



Equates 

v v v v v V V v M v v 'i> ^ v v v v v v v V v v V v 3 ,j i,t j;: 5,: 3,c «,« W W vv vv v V V v «i* V V 



Dist Controller command bytes 



and masts ( REM EX ) 



d£_rdy_ma st 


equ 


08H 




dic_rd__cmd 1 


eq u 


1011E 


Jread commanl 


dE_rd_cmd2 


equ 


1012E 




iit_rfr_cmi 1 


equ 


1021H 


; write command 


dt_wr_cmd2 


eq u 


1022E 




tries 


equ 


10 




drived 


equ 


2 


JCFM logical 1SK tt for 
Jdrive 2 





I nte rface 


Controller Ports 


cmd_re£ 


equ 70H 


Jctrler's base in CP/M* 


s tatus_res 


equ 71H 




p_addr_lo 


equ 72 E 




p_addr_hi 


equ 73E 





^6 3^ ^ Jje 3? >}t jp ^63^ 3|S 3? ^ ijC J|S Jjt ^ Sj« 3jS J|S ^ Jjt ^ JJ« JiC ^ ^ Jjt ^5 ap 3^ ^ 3^ ^ ^ ^ ^ J?; 3^ 5,e >JS i;; v; Si< ^ 3i« =? 

CPM DEVICE SPECIFIC CODE 
entered from t tis main CPMBIOS's jump vectors 

3jS3p3?3?3?3?3?3iS^:^SJJC3iS^C3^nS3i«3^3iS3^^S3p 3* 3? 3JS 3£ 3fi 3JS 3£ JJI 3? J? SJS 3£ 
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cseg $ 



» 










rxf lop_ini t: 










ret 


; no 


special 


action 


require! 


J j - ■■■ i ■ ■ 

rxf lop_nome: 










ret 


; no 


special 


ac ti on 


reauired 


f ■ — “ ■ ■ — j — * 

rxf lop_sel dsx: 










ret 


?no 


special 


action 


require! 


? 

rxf lop_se t trx : 










re t 


?no 


special 


action 


rea ui red 


» 

rxf lop_set sec : 
re t 


; no 


special 


action 


required 


rxf lop_reai: 










■no v 


rwdi r ,2 








IF 


loader_bios 
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7] o v bx ,dK_rd_cmdl »force a read on drive 1 



EM DIF 




; 1 oade r_bi os 


IF 

• — — —— * 


not loader_bios 




» 

call 


reuues t 


» request ticket nun ter 


cmp 


uni t , drived 


JCP/M logical disF No. for 


Jz 


rdl 


jRenex floppy drive 2 ( C : ) 


no v 


bx,dc rd emit 


•set up to rd drive 1 (£:) 


jmps 


rd2 




rdl : 






mov 


bx,d.t rd cnd2 


Jset up to rd drive 2 


rd2 : 
J 






ENDIF 




•not loaaer_bics 


call 


build packet 




call 


send_pacK:et 


•perform tne read 


call 


xf rebuff er 


•xfr CPM buffer into memory 


IF 


not loader_bios 




» 

i 

call 

f 


re lease 


•free resource 


ENDIF 




•not loader_bios 


TO V 


al ♦ resul t 


Jreturn success/failure cole 


re t 






rxf lop_wri te : 






IF 


not loader_bios 




» — 
t 

FOV 


rwdir ,1 




call 


reque s t 


; request ticket number 


crp 


ur.it,drive2 


; C P /I s ! logical dis£ No. for 


jz 


wrt 1 


JRemex floppy drive 2 (C:) 


no v 


bx f ds_wr_cndl 


Jsetup write to drive l (£:) 


jnps 


wr t2 




w r t 1 : 






no v 


ox f d£_wr_cmd2 


Jset up to write drive 2 



17B 



vr t2 



call build_paceet 

call xfr_buffer 

call send_paceet 

call release Jfree resource 

mov al, result jreturn success /fai lure code 



ENDIF ;not loader_bios 

re t 



: fi V *>' *fi V V> v V v v vvV V V 

RE^EX FLOPPY DISK SUBROUTINES 



bui ld_paceet : 



pusn 


e s 


isave es register 


mov 


ax , cmemse^ 


; set up es to address common 


mov 


es ,ax 


; memo rv 


mov 


p_mcdif iers , bx 


Jcnter read cci® in paceet 


mov 


p status, 0 


; clear paceet status word 


mov 


ax ,0000H 


Jciear register 


mov 


al .trade 


Jffet trace * 


mo v 


p_t race_no ,ax 


Jenter trace * m paceet 


mov 


ax ,0000H 


Jset aead no. to 0 


add 


al , sec t or 


?set sector no. 


mov 


p_nead_sect , ax 


;put nead ^ sec n m paceet 


mov 


p_mem_addr , 0100a 


Jaddress of CF** 1 buffer 


mov 


p_ms o , 000en 


; C?^ buffer ms b 


mov 


p_wori_ccun t ,64 


»* of 16 bit woris 


pop 


es 




re t 







send_pa cfce z : 

pusn es 

tiov ax.cmemseg 

mo v es , ax 

mov de_cnt, tries Jload count ror retries 

sendl : 

in al ,s ta tus_reg 

and al, de_rdy_mase Jcnece interface ready 
cmp al f 08H ?is it ready? 

jne sendl Jit* not ready repeat 

mov al,lcH 
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out cnd_reg,al 

nov ax,0004n 

out p_addr_lo f al 

no v ai, an 

out p_addr_ni f al 

ciiecK_resul t : 

nov ax,p_status 

cnp ax f 000lH 

je success_read 

cmp ax f 0000H 

jne retry 

jmps cnecK_resui t 

retry: 

mov d£_err_code ,al 

nov p_status,0 
dec dfc_cnt 

j n 2 s e nd 1 

•nov result ,0FFH 

jnps d£_execu te_re t 

sucres spread : 

nov result,00H 

dk_er° cu te_re t : 
pop es 

ret 



iload extended address 
; packet offset 
? transfer low byte out 

; transfer ni byte out 

Jload status word 
Jcnecfc for success 

;cnec£ for failure 



; save error code 
Jclear status word 
;reduce retry count 
; i f <> 0 try ap-ain 
; return failure code 



; re turn success code 



xfr buffer: 



pusn 


es ! push d 


nov 


es , dna^see* 


nov 


di f dna_ad r 


nov 


ax , cnemseg 


nov 


ds , ax 


nov 


si , Z100n 


nov 


cx , 64 


cnp 


rwdi r , 0 


jz 


xfr 


x eng 


si f di 


no v 


ax , is 


no v 


es ,ax 


nov 


ds ,drna_seg 


cld 


rep 


novs a x , a x 


pop 
re t 


ds ! pop es 



; set up for write operation 



Jnove as 16-bit words 



V V V V V ^ v v V V V *»S ^5 V *1» JJ5 5^ J|% J|* Sj% 5*% ^ v *1^ V o* v V 'r 'T v 'i* 'T V V *i* 

Data Se^nent Area 
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p_modif iers 
p_s ta tu s 
p_t rack_no 
p_nead_sec t 
p_mem_addr 
p_ms b 

p_wo rd_count 



d fc_e rr_cod e 
dk~cn t 



result 
rwdi r 



Remex Interface Packet 



eseg 

org ZZZ 4n ; offset of packet 



rw 1 
rw 1 
rw 1 
rw 1 
rw 1 
rw 1 
rw 1 



^function & logical unit 
;returned status 
^selected track numDer 
Jseiected nead/sector number 
♦buffer address 

^extended bits of buffer address 
»’ s i z e of data block 



— M isc Variables 



c s eg $ 

db 8CH ; returned Remex error code 
db ZZR 



r b 1 

rb l ; Z = read ; 1 = write 



APPENDIX I 



PROGRAM LISTING OP LL'RMAST . CPG 



Prog Name 
Date 

Written by 
For 

Advisor 

Purpose 



: LDRMAS T ♦ CFG 
: 5 April 1983 
:Mark L. Perry 

:Tnesis (AEGIS Modeling Groups 
: Profess or Cotton 

:T.nis code is an include rile witnin 
LDCPM.A86. It contains tne device 
1 6 Dies for access to initialization, 
read, and write routines and was 
developed to accompany tne boot rom 



; DEFINE nunits 

nunits db 1 Jonly a single drive for tne loader 



I 

? 

in tbl 

1 

• 


dw 

d* 


INITIALIZATION TADLE 
offset rxflop init Jmitiaiize Remex 

e 


! 




ADDITIONAL OFFSETS 


T 

rd tbl 


dw 


offset rxflop_read 


w r t b 1 


dw 


offset rxflcp_write 


nmt bl 


dw 


offset rxflop_nome 


1 s i 1 t 1 


dw 


offset rxf iop_se Ids it 


t r&t bl 


dw 


offset rxflop_settrt 


sec t ol 
J 


d w 


offset rtf lop_set sec 



IQ'd 



APPENDIX J 

PROGRAM LISTING UP LMMAST . DAT 

Tnis is tne listc definition statement used 
loader routine. Tne system is configured in tne 
pnase as a single disfc system to minimize t 
requiremen ts • 

dis’ss 1 

disKdef 0 ,1 ,26 f b ,1024,243,64,64,2 
endef 



for tne 
loading 
ne space 
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APPENDIX K 



PROGRAM LISTING OP LDR MAS T . LI £ 



» 




DISKS 1 




dpbase 


eq u 


£ 


;£ase of Diss paramete 


dpe 0 


d w 


xi t 0 , 0000 n 


jTranslate Table 




d to- 


e 000 n , 0000 n 


; Sera ten Area 




dy 


di r buf ,d poo 


»Dir Buff, Parm Blocs 




dw 


cs v 0 , alv 0 


» Cnees, Alloc Vectors 


» 




CISKDEP 0,1,26, 


6,1024,243,64 ,64,2 


dpt >0 


eq u 


offset s 


;Diss Parameter Blocs 




dw 


2 b 


JSectcrs Per Tracs 




db 


3 


; B 1 o c s S n i f t 




d b 


7 


; Blocs ^ass 




db 


0 


JSxtnt Mass 




dw 


242 


; Diss Size - 1 




dw 


63 


;Directory w ax 




db 


192 


; Alloc 0 




db 


e 


; Aiioci 




dw 


16 


JCnecs Size 




dw 


2 


; Offset 


Xlt0 


equ 


offset $ 


^Translate Table 




db 


1,7,13,19 






Id 


25,5,11 ,17 






d b 


23,3,9,15 






db 


21 ,2,3,14 






db 


20,26,6,12 






d b 


13,24,4,10 






db 


16,22 




a ls 0 


equ 


31 


; Allocation Vector Siz 


CS S0 


eq u 


16 


; Cnees Vector Size 


t 




i'N DPP 




r 

f 


Uninitialized Scratcn Memory Follows: 


y 

begda t 


equ 


offset $ 


JStart of Scratcn Area 


di rbuf 


rs 


128 


^Directory Buffer 


aiv 0 


rs 


als 0 


; Alloc Vector 


CSV0 


rs 


css£ 


JCnecs Vector 


endda t 


equ 


offset $ 


;End of Scratcn Area 


ia t si z 


equ 


offset $-oegdat 


JSize of Scratcn Area 




db 


0 


;Marss Ena of ^odule 
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APPENDIX L 



PROGRAM LISTING OF RMXRQM.AB6 



5? n« 

* 4 Tiiis Customized ROM loader for CP/M-86 nas 354 

* tne following Hardware configuration: 3,4 

* Processor: iSPC 86/ I'd & * 

354 DisK Controller: Rem ex Data Warenouse ** 

* or tne iSBC 201,202 * 

s? Memory model: B0b0 354 

V 

^ Programmer: M.L. Perry * 

v 

>? *« jp 7 ?. j? ^ jp JJI 3* ne sp jp a* sp Jp sp ap * sp j? ap ap ap ap ap ap ap ap ap ap ap ap ap ap ap ap ap ap ap ap ap ap ap ap ap :p nS V ^ ^ V * W 



v V'i* VVV VVV VV V V VVV VVVvVV vvVV V»rv V W W »P v V *P V V 

^ Tms is tne HOOT ROM wnicn is resident * 

* in tne 957 monitor. To execute tne Doot * 

* tne monitor must be brou^nt on-line and * 
~ tnen control passed by ”gffd4:0” or by 7 * 4 
3:5 ”ffl‘fd4: 0004”. Tne first monitor command 3:4 
3:4 will coot to an iSPC 2 02 dis& and tne * 
~ second command will boot to tne Eenex . v 

* First, tne ROM moves a copy of its data * 

* to RAM at location 00000H, tnen it * 

* initializes tne segment registers and t re* 

* stacx pointer. Tne ib259 peripnerai mt- 3,4 

* runt controller is setuo for interrupts 1,5 

* at* 1 0 H to 17H (vectors at 00040H-000oFH ) - 

- and ed?e- 1 rigee red auto-EOI (end of in- 3:4 
v terrupt) mode witn all interrupt levels 3,4 
314 masxed-off. Next, tne appropriate device* 
3:4 controller is initialized, and traci 0 3:4 

* sector 1 is read to determine tne target 3,4 

* paragrapn address for LOADER. Finally, 554 
74 tne LOADER on tracA 0 sectors 2-26 and 3:4 

* trac& 1 sectors 1-25 is read into tne * 

* target address. Control tnen transfers 314 

* to tne LOADER program for execution. ROM 354 

* O contains the even memory locations, and 3 * 4 
354 ROM 1 contains tne odd addresses. ROOT 314 

* RC** uses RAM between 00000 E and 000FFH 3,4 

* (absolute) for a scratcn area. 354 

3? ap 3p ap ap >p 3p ap apap ap Tf. ap 3p ap 3p JJS 5? 3p 3p 3p ap SjS ap >JC 3p 5? 3P Sfi 3? Jjt 3JS ap ap 3? Hf. 3P 3? 3P Xfi 3? 3? ap 



1B5 



• s?3f EQUATES 



v W v ^i* V v v *> ; *»• Vv *«* W v 'i' v v v v ¥ 




Miscellaneous equates 



• i 
f i 



cr 

disfc_type 

if 

remex_type 
roTiseg 
sect or_size 
start tncl 



equ 0dH ; Ascii carriage return 

equ 01H i type for iS.bC 202 d is* 

equ 0aH JAscii line feed 

equ 02H 5 type for REMEX floppy 

equ 0ffl4n ; base address 

equ 128 5CP/M sector size 

equ 0c8n 



18251 (JS ART console ports 

C0NP_data equ 0dSH 518251 data port 

CONP_status equ 01aH 518251 status port 



Eis£ Controller command 



DK_cni£int_TiasK 
DK joome_cmd 
PE read cmd 



equ 004H 
equ 003H 
equ 004 H 



bytes and masKS (iS£C 202} 

i 

i 

;mas£ to cnecic for DK interupt 
Jmove to dome position command 
Jread command 



INTEL iS2C 202 DiSK Controller Ports 



DEP_base 
DKP_resul t_ type 
DKP__resul t_Dy te 
EKP_reset 
DEp”s ta tus 
DKP_iopb_lov 
DXP'iop b“nign 



equ 078H 
equ DK?_base^l 
equ DXP_Dase+3 
equ DKP_base-^7 
equ DK?_base 
equ DKP_base+l 
equ I)£P_b ase+2 



ctrler's base in CP/M-66 

operation result type 

operation result byte 

disK reset 

dis£ status 

low addr byte of iopb 

nign addr byte of iopo 



REMEX floppy disx drive eauates- 
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I 



dlc_rcL_ c mcLl 
dK_rdy_ma sk 
cntr l_err_mas£ 
d_ err _mas.< 
c rc_err_masK 
cmemseg 
tries 



equ 10lin 
equ een 
equ 04n 
equ 08n 
equ 10n 
equ 0e000n 
equ 10 



Jread for drive 1 

Jready mass for control 
Jcontrolier error 
Jdis£ error 
Jcrc error 
; common memory 
InumDer of retries 



RSMEX Controller Ports 



cmd_reg 


equ 


70n 


Jcontroller base 


status ree 


equ 


7ln 


Jstatus register 


p_addr_lo 


equ 


72a 


Jlower address 


p”addr_ni 


equ 


^3 n 


Jupper address 



• i 
f i 



i 



; INTEL i825S Programmable Interrupt Controller 

t i 

PIC 59pl equ 0C0n , ’8259a port 0 

PIC”59p2 equ S5C2n J8259a port 1 

t i 



• ENTRf POINT AND MAIN CODE v***^^*^***?**'***^ 

] 

use? romse^ 

» 

;Enter nere witn gffd4:0 command for iSEC 202 Doct 
J 

mo v DL , dis£_type »set boot type to lisi 

jmps Start_boot Jgo start code 

i 

JEnter nere *itn gffd4:0004 command for REMEX toot 

t_l : 

mov DL , remex_t ype > set boot type to re.mex 

S tar t_boo t : 

> 

Jmove our data area into RAM at 0000:0200 



mov 


AX , CS 


; point DS 


to CS for source 


mov 


DS , AX 








mo v 


SI ,da tabegin 


; start of 


data 




mov 


DI, offset ram start 


; offset of 


destination 


mov 


AX f 0 


;set dest 


segmer. t 


fES ) 


mov 


ES , AX 


; to 0000 






mov 


CX, ia ta_lenstn 


; now mucn 


QJ 

O 

t. 

O 

*-> 


( d y tes ) 
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rep movs AL , AL 



Inove from eprom 
J by te at a time 



set segment registers and initialize tne stacK 

mov AX,0 Jset DS segment to 0000, 

; now i n RAM 

mov DS , AX Jdata segment now in RAM 

mov S S , AX 

mov SP , s tac£_of f set Jinit staci segment/pointer 

old. Jclear tne direction flag 



Setup tne 8259 Programmable Interrupt 


Controller 


710 V 


AL.013H 










out 


PIC 5apl,A.L 


J 52 59a 


ICW 


1 


8086 none 


rro V 


AL, 814JH 










out 


PIC 53p2,AL 


; 62 5 9a 


I C'« 


2 


vector P 40-51 


mov 


AL.BlfH 










out 


PI C_59p2 . AL 


J 6259a 


ICV 


4 


auto EOI master 


mov 


AL,0f fH 










out 


PIC_59p2, AL 


; 8259a 


ocw 


1 


masit all levels off 


BRANCH TC 


SELECTED 


DEVICE 


FOR BOOT 


det ermin 


e if booting 


to iSBC 


202 


or 


to REMEX 


cmp 


DL , di s£_type 




; is 


tnis a i202? 


jne 


boot _r erne x 




; if 


not, boot to REMEX 



j ajoje^sjjt^spsisvjjtsiev iSBC 'dtf'd BOOT CODE 

> 

Boot_i202: Jreturn on fatal errors 

> 

;Rest and initialize tne iMDS 600 Diskette Interface 
? 

in AL , DKP_resu 1 t_t ype Jclear tne controller 

in AL , DK?_re sul t_by te 

out D£?_rese t ♦ AL ; AL is dummy 

it'or tnis command 

i 

; none tne iSBC 202 
i 

mov D£_io_com ,DX_nome_cmd Jload io command 
call D£_Execu te_Cmd Jnome tne disic 

mov DfC_i o_com , CK_read_cmd Jail io now reads only 
i 

; get trac£ 0, sector 1, tne GENCME neader record 
J 

mov BX, offset genneader Joffset for 1st sector DMA 
mov DX_ima_addr ,BX Jstore ama address in iopD 
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mov D£C_secs_t ran , 1 
mo v DX_sec tor ,1 
call DK_Sxecu te_Cmd 

; get trt 0, sect 2-26, and 

mov ES , a bs_loca t i on 
mov AX , ES 
mov CL, 04 
sal AX , CL 

mov D£_dma_addr , AX 
mov DK__secs__t ran , 25 
mov DK_sec tor f 2 
call DK_Execu te_Cmd 
J 

; get trt 1, sect 1-25, put 
? 

mov AX , ES 
add AX,start_trtl 
mov CL, 04 
sal AX, CL 

mov DK__dma__add r , AX 
mov DE_secs_t ran ,25 
mov DK_sector,l 
mov M_tracic,l 
call DK_Execu te_Cmd 
jmp Jump_To_Loader 



J transfer 1 sector 
Jstart at sector *1 
jread tract 0, sector 1 

place in HAM 

; segment loc for LOADER 
; to AX to manipulate 
Jnust xlat to 16-bit adar 
Jsnift segment 
Jstore dma address in iopb 
> transfer 25 sectors 
Jstart at sector *2 
Jread trie 0, sects 2-25 

at next place in RAM 

Jcompute offset for tract 1 
iaaa in *nat already read 
Jmust xlat to 16-bit audr 
jsnift segment 
Jstore dma address in iopb 
; transfer 25 sectors 
Jstart at sector #1 
J s tart at tract *1 
Jread trt 1, se~ts 1-25 
Jgo pass control to loader 

HOOT CODE 



boo t_remex : 

mov AX,cmemseg 
mov ES , AX 



Jmate common memory 
; address able 



get tract 0, sector 1, tne GHNCMD deader 



bo o t_agai n : 

mov £X , dt_rd_cmdi 
mov an,00n 
mov al,01d 
pusn ax 

call build_pacte t 

call send_pactet 

mov di, offset genneader 

mov ax , ds 

call xfer buffer 



; return ne re on errors 
Jset up to read drive l 
; t ract 0 
; s ec tor 1 
;save it 
J d o it 

Jset up destination 
Jset up source 



get load location from GENCMD neaaer 



mov HX , a bs_lo cat l on 



Jabs is location in RAM 
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710V CL ,04: 
sal BX , CL 
mov DI,BX 

set : 

pop ax 
inc al 
cmp al,26 
ja fin_l 

ge t_l : 

pusn ax 

mov BX ,dt_rd_cmdl 
call ouild_pacKe t 
call send_pactet 
mov ax f 0000n 
call xfe rebuff er 
j*np get 

f in_l : 

inc an 
c 7i p an,l 

ja Jump_To_Loader 
mov al , 1 
jmp get_l 

• wv PASS CONTROL 



Jconvert to lb bit 
; JBX now nas loan address 
;now in di 

Jget next sector 
Jana cnect for last 
Jon tnis tract 



Jsave ax 

Jprepare for read 
J read next sector 

Jabsolute load 



Jget next tract? 

Jjump to loader 
Jreset sector number 

TO LOADER 



Jump_To_Loader : 

mov ES , acs_locat ion Jsegment addr of LOADER 

mov leap^segment ,ES Jload 

Jsetup far jump vector 

mov leap_off set ,0 Joffset of LOADER 

jmpf aword ptr leap_offset 
J 

• END OF ;v1 AlN CODE 



; ********:*;** REG- IN NINO OF SUBROUTINES 



; ^jpv^s^t^jjejpjpssts^spssc VW W^api?a?S5ssjia!ssit^s;espJ?*;s3pa?J^sjew-*isJ;ss;!VJ,5J.' 

J * CONIN subroutine 



V v v V s fi V W v'p'r v o' 



Conin : 



J? 3P 3? 0.S 5* *fi J? J* J? J?I S* S.6 J* J? 3? J? J* ^ S* V V 3? V i? W s? 5? 5? W ir J? V s? J? ** V ;? V s? s? 



Jcalled from: Dt_Execu te_Cmd . 

; ** returns console Keyboard cnaracter 
J** parm in - none 

J ** parm out - returns cnaracter in AL 
in AL , CON?_sta tus Jget status 



and AL f 2 
j z Conin 
in AL,CONP_data 
and AL , 07 fH 



Jsee if ready-bit 1-is set 
J if not, it is zero and not ready 
Jreaay, so read cnaracter 
Jremove parity bit 
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ret 



• J* Jjcjgcs;t3scs« j?^^r 3? J? J? J? JjC >? J?3? JPJ?^ a? ^ JP >? ^ w :p s,e sp s* jp W J? 

;* CONOUT subroutine * 

Jcalled from: Frint_Msg. 

Conout: ; ** write cnaracter to console ^eyboara. 

; ** parm in - cnaracter to be output in CL 
parm out - none 

in AL , CONP_s tatus Jget console status 

and AL , 1 Jsee if ready-oit 0-is set 

jz CONOUT ; if zero, not ready-fceep cnecfcing 

mov AL t CL Jload input parm to AL for out 

out CONP_data,AL Joutput cnaracter to console 

ret 



• jpsp>p jpspjp jpspjpjpspspjpipjpipjpsicjpjpapspjpspjpspjpjpjpjpspjiopjp^^spsp jpspjpipjpjpjpj**^ W J?V 

;* DK_EXECUTE_CMD subroutine 

• jp^^jp^jpjF^^:p**j^^*jpip^^**p^^;pjp^:>p;p3pjp3pjpapjpj;;;p;pjpy < «3p:p;pjp3p;;;s;c3psp:pjp:>;s!*>;55*JieJ£>? 

; called from: in-line from 5oot_i202. 
DK_Execute_Cmd : Executes a disx read/write command 

; ** parm in - D'^A addr in LX. 

; *** parm out - none 

Jsend iopo to disK controller via two ports (2 bytes) 
Send_iopb : 

in AL ,DKP_resu it _type Jclear tne controller 
in AL , D£?_resul t_bv te Jclear tne controller 
mov AX, offset DX_iopD ;get address of iopb 
out D£?_i o p o_low , AL ;output low byte of iopb aadr 
mov AL , AH ~ ; load nign byte to AL for output 

out CX?_i op benign , AL ; out nign byte of iopo aidr 
;cnec£ for interrupt from disx controller 
Disic_i n t : 

in AL , I)£P_s t a t us ;get lisle status 
and AL , DK_cn £i nt_ma sic ; interrupt set? 
jz Dis£_int Tif not, seep cnecxing 

Jsee if interrupt signifies I/O completion 

in AL ,DXP_resul t _type ;get reason for interrupt 
emp AL , i?0H Twas I/O co plete ? 

jz Cnec£_result ; i f so, go cnecK tne result byte 
jmps Send_iopb Jif not, go try again 
;cnecic result byte for errors 
CdecK_resul t : 

in AL , DKP_result_by te ;get result byte 
and AL,080E Tis I/O complete? 

jnz Fatal_err ; if not, fatal error 
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ana AL,0feH JcnecK for error in any bit 

j z D£_execute_re t Jno errors, go return 
Fa tal_e rr : 

tiov C L,0 Jclear CL for counter 

Ftests 



rcr AL, 1 
inc CL 
test AL,01 
j z F test 
mov AL,CL 
mov A H,0 



JcnecK each bit of result 

Jcount eacn bit 

Jtest eacfi bit 

fzero, go cnecK next 

Jnot zero, error, inc count 

Jclear nigh 



add AX, AX Jdouble for idx to word table 

^ov 3X,AX Jload BX as index 

tov BX , err t bl [BXJ J?et addr of error mss 



;print appropriate error message 

call Print_Msg“ Jwrite ms? to console 
call Conin Jwait for Key stride 

jmp 3oot_i202 Jtnen start all over 
Dfc_execut e_ret : 
re t 



S* J* 3* Xfi 5JJ J(£ S* Sfi* J* 3? 3* X? J* 3* J* JJC J?* 3* 3* 3* 3? 3* 3* 5Jt J* 3* 3}6 3* 3? 3* 3* V VVVr V W W W 



* REMEX senl^pacxet subroutine 



send_pa cKe t : 

mov ES :dK_cn t , tries 

send_l : 

in AL , sta tus_reg 
and AL ,dK_rly_rrasK 
cmp AL»08n 
jne send_l 
mov AL, lcn 
out cmd_reg,AL 
mov AX,0004n 
ou t p_addr_lo , AL 
mov al,an 
ou t p_addr jii ,a 1 
cK_resul t : 

mov AX , p_s t atu s 
cmp AX, 000 In 
je* success _real 
cmp AX ,0000n 
jne retry 

jmps cK_resuit Jnot 

retry: 

mov p__s ta tus , 0000n 
dec ES:dK_cnt 
jnz send_l 

mov BX, offset errtbl 



Jload count for retries 



jcnecK interface ready 
J ready? 

; if not, repeat 
Jload extended address 

J packet offset 
Jtransfer 10 byte 

J t ransf er ni byte 

Jload status 
JcnecK for success 

JcnecK for failure 

finished 

Jclear status code 
J re uce retry count 
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add EX, 14 
mov EX, [EXJ 
call Prir.t_Msg 
call Conin 
jmp boot_again 
$uccess_read : 

J 

re t 



Jadjust for table entry 

Jwait on user Key stride 
J s tart over 



t? v 

j$csps* j^sjssps^jtfsjss^sics^s}: sissjsys^s* 



3? 3fi Xfi. JjC SjC JjS 3JC XU Jjt & 3$ J? ifi 3fC J* V 1JS 3? J* 3* * 3* 3? 3? 3* 3? 3JS JJC 3* J* ^ JJt 3* 3? JJC 3* 3fi 3* 3ft 35? 3* 7? 3* V' 3.S V ** * V V W W W V V 

* REM EX Dui ld_pac£e t subroutine 

vv W v f i> VVSWvV'lf *>* v V v V v W*5? V V V "I* V »«* «,* »,» 'l* V V W »«♦ “I* v*i ! <• v *>* 'W*?? v v v »<* vVv »•» v -V V 



buili_pacset 






nov 


ES : p modifiers , bx 


Jset read code 


mo v 


ES :p~s tatus ,£ 


Jclear status word 


no v 


cLx, 00630q 


; clea r dx 


nov 


al , an 


Jset tracK: number 


no v 


ES : p_t ra^K__no ,dx 


Jenter in packet 


nov 


dx , 0000n 


Jclear dx 


nov 


dl , al 


Jset sector and dead 


mo v 


ES :p_nead_5ect ,dx 


Jenter in pacKet 


nov 


ES : p_men_add r ,0100n 


j address of buffer 


nov 


ES : p_ms b , 000en 


J du f er ms b 


nov 


ES : p_word_count ,64 


J number of 16 tit wds 


re t 







Vfi * 3* jp 3* 3* 3* a* & 3JC 3* 3* 3* 3jc Jft 3?: ap 3* 3* 3* 3? 3? s* 3ji 3* 3* 3? s* s;c 3* 3js sp sp sp sp 3? ^ J£ *« V >? ^ *t J? s? ^ * *fi V sp a? 3p sp sp 3p 

* REM EX xfer_Duffer subroutine '~ 

v n* Wvv v n* V V *<»»•**•• v *«* v v v v *,» v •»• V 'r v v v vv vvV v v v V v !Jt VvV ••»»•' W vV V 5i* *r n* ~r *i» »p 3,1 V V v 



pusn eslpusn is 
t.ov es,ax 
mov ax,cmemseg 
nov ds,ax 
no v si , 'ZIVVb 
nov cx , 64 
cld 

rep movs AX, AX 
pop ds!pop es 
re t 



;save segment registers 
Jset up for transfer 



^location of buffer 

Jword count 

Jclear direction flag 



3* 3p 3p rf. jp ap 3? jp ap 3p jp 3p JjC j* # ap Jp 3? jp 3p 3p 3p 3p 3p SJC 3p JJS 3p 3p V 3p 3p 5? 3? ** 3p 3p 3? 3p 3? 3? 3? 3p 3p 3p 3p 3p i? * *i sji S? w i? 3? 
V V -.« V V V s.< S.I V W »? J.* 5.“ s;s V V s.: W W -V V 3? V v V s? V V ^ -r* 3,1 3,1 V v 3.1 V *r 3r 3? 3;i 3,1 Sit s,s s,; ^ S.S S.S s? 
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»* PRINT_MSG subroutine * 

• v^S5S«J?JiiJpsiSS?:^>pJ?JiC^SrW3?^<^?p3rSrW>,«jp5iS>i!^s?WSr J? 



Pr int_Msg: 



mov CL, [EXJ 
test CL, CL 
jz Pmsg_ret 
pusn EX 
call Conout 
pop BX 
ino BX 

J ^ps Print_Msg 
Pmsg_re t : 

re t 



Jcallea from: Plc_Execu te_Cmd . 

; ** Prints a message to tne console. 

parm in - address or message in EX. 
;** parm out - none 

Jget next cnar from message 
; i s it zero - end or message V 
; if zero return 
Jsave address of message 
Jprint it 

Jrestore address of message 
Jnext cnaracter in message 
»next cnaracter and loop 



2ND OF SUBROUTINES , W ; > 1J « !s * sr > s W*!* 5 ? V s ? *i*3r J? s;« V SJ* V 



; Image of data to be moved to RAM 



lataoegin equ offset 
5 

;A template iSEC 202 
1 D 
d b 
do 
d o 
d b 
dw 

;2nd of iopc 



$ 

iopb (cnannei command - 7 bytes) 
080H Jiopb cnannei word 

0 ? i o command 

0 Jnumber of sectors to xrer 

0 ; tract to read 

0 jsector to read 

0000H ; dma addr for iSEC 202 



cerrt bl 


1 w 


of rse t 


e r0 




dw 


offset 


erl 




nw 


offset 


e r2 




dw 


o f f se t 


e r3 




dw 


offset 


er4 




dw 


offset 


e r5 




dw 


oi fse t 


er6 


. 


dw 


of f se t 


er? 


1 

Cer0 


d b 


c r , 1 f , 


'Null Error? ' ,0 


Cerl 


d b 


cr ,if , 


'CRC Error', 0 


Cer2 


db 


c r , 1 f , 


'Sees Error', 0 


Cer3 


db 


cr ,lf , 


'Address Error', 0 


Cer4 


db 


cr,lf , 


'Data Overrun-Underrun 


Cer5 


db 


cr ,lf , 


'Write Protect', 0 


Cer6 


db 


c r , 1 f , 


'Write Error',0 
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Cer7 db cr, if, 'Drive Not Ready', 0 

? 

dataend equ offset $ 

J 

data_lengtn equ da taend-da ta begi n 

; reserve space in RAM for data area 

; (no nex records generated nere) 

DS EG 0 

org 0200H 



ram_s tart 

> 

,'Tnis is tne 
DK_iopb 
DK_io_com 
D£_secs_tran 
D£_t ractc 
DK_sect or 
DK_dma_adl r 
;Snd of iopb 



equ $ 

iSEC 202 iopb (cnannei command - 7 bytes^ 

rb l ;iopo cnannei word 

rb 1 ;ic command 

rb l ;number of sectors to xfer 

rb 1 Jtrack: to read 

rb 1 ;sector to read 

rw 1 Jdma addr for iSRC 202 



errt Dl 


rw 


3 






er0 


rb 


lengtn 


cer0 


?ie 


erl 


r b 


lengtn 


cerl 




er2 


rb 


lengtn 


ce r2 




er3 


rb 


lengtn 


cer3 




er4 


rb 


lengtn 


cer4 


»14 


e rb 


rb 


lengtn 


ce r b 


»11 


er6 


r b 


lengtn 


ce rb 


1 15 


er7 


r b 


lengtn 


cer? 


; 17 


? 

leap_of fse t 


rw 


1 






leap'segment 


rw 


1 






5 


rw 


32 


; local 


s tac. 


stacs_o ff set 


equ 


offset 


$ > s tacit 


f ron 



;12£ byte se 
genneader 



abs location 



ctor will be real in nere-GSNC^D reader 
equ offset $ 
rb 1 

rw l 

rw l jabsolute load location 

rw 1 

rw 1 



jp s? Jjt jp >JS Jje sp 3^ sp sjs ap 3P ^ ^ ^ a? 3ii ^ 5? v ^ 5? 3? S? 5? V V ^ ^ ^ 5? sp 

* RSM3X packet and data locations * 

ap ^ a? a? a^ a^ a? a?: a? a? ap ^ ajc a? a^ a? a? a? r,t a^ a^ a? a? a? ^ a? aj: a;s a? a? a? a? a? ^ sp aP 3P a? a? JP a? 3P a? a? a? a? 3P a? JP a? a? 
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£3 EG 

org 0004n 



p^modif iers 


rw 


1 


p_s ta tus 


rw 


1 


p_tracK_no 


rv 


1 


p~nead_sec t 


t* 


1 


p~mem_add r 


rw 


1 


p_ms b 


rw 


1 


p_vo rd_count 


rw 


1 


» 

; ots dinner 


than buffe 


r to 



org 05 00h 

lie cm re? 1 



; offset of REMEX packet 
; function and logic unit 
Jretumed status 
Jselected tract number 
jselected nead/sector number 
; buffer address 
Jextenued bits of ouffer addr 
; size of data d 1 o c & 

sure 



; number retries 



• spifi W sfi ifiSf. i? if.:? tfi r,s v h* V V Jp a* sp :p jpsje:? 

;* End of CP/M-56 Customized ROM 

« ^ ^ ap ^ v apapV *P ap*P apapap a? apap ^ ap *P apapap a?*!* s? 1 ? ap»P V a? a? 5 ? 

END 



~ ~ ^ 
r,J 5? 5 r ap *i* 
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